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Sammeldisketten 


Auf die nächsten Sammeldisketten werden 
wirneben den üblichen Programmen zu den 
Peeker-Aufsätzen zusätzlich eine Reihe von 
professionellen Großprogrammen aufneh- 
men, Nach dem Applesoft-Editor „Macro- 
editor“ (Disk 4#16) geht es weiter mit einem 
kompletten ProDOS-Disketteneditor „Edit" 
von Arne Schäpers (Disk #17). Dann folgen 
das lang erwarteie UCSD-Grafik-Druckpro- 
gramm „Superdump“ für Epson- und Ima- 
gewriter von Jürgen Geiß, dann ein Pro- 
grammpaket für Buchregister und Glossare, 
dann ein kompletter UCSD-Grafik-Editor 
„Pic-Edit" von Jürgen Geiß (Gegenstück zu 
„Turtle-Graphics-Libarary-Paket), dann ein 
kaufmännisches Kalkulationprogramm von 
mir, dann ein P-Code-Disassembler von 
Jürgen Geiß, und und und. 

Jede der nachfolgenden Sammeldisketten 
wird deshalb zum Bersten voll sein, wobei 
es sich nicht wird vermeiden lassen, daß die 
Programmpaktete ggf. auf zwei Disketten 
verteilt werden. So enthält beispielsweise 
die Disk #17 den kompletten Quellcode zu 
dem Disketteneditor „Edit“, während sich 
der Objektcode aus Platzgründen erst auf 
der Disk #18 befinden wird. 


Kompaktkurse 


Im letzten Jahr erschienen die auf gelbem 
Papier gedruckten, meist 16seitigen Kom- 
paktkurse „6502 leicht gemacht" (Heft 7/85), 
„Z80-Assembler-Programmierung unter 
CGP/M" von Dr. H. Kersten (11/85) und 
„Pascal, Teil 1* (Grundlagen von UCSD- 
und Turbo-Pascal) von mir (Heft 12/85). In 
den nächsten Heften werden wir diese „Mi- 
nibuch“-Reihe fortsetzen mit den bereits 
vorliegenden Kompaktkursen „Einblicke in 
Logo“ von Ernst F. Haas, „Pascal, Teil 2“ 
(UCSD: Dateiverwaltung, Bibliothekskon- 
zept u.a.) von Jürgen Geiß, „68000-Assem- 
bler auf dem Mac” von Pit Capitain. Weitere 
Kompaktkurse (z.B. „65816“) sind geplant. 


Kyan-Pascal 


Die Version 2.0 wird am 25.4.86 ausgelie- 
fert, doch haben wir aus produktionstechni- 
schen Gründen zunächst nur 600 Exempla- 
re von Kyan-Software erhalten, so daß ca. 
AO Besteller leider etwa 14 Tage später be- 
liefert werden. Kunden mit einer durch 50 
teilbaren Kyan-Club-Nummer bekamen zu- 
sätzlich eine Buchprämie. Es sind dies die 
Club-Mitglieder: 

1050: Rüdiger Okel, Lübeck 

1100: Stefan Friske, Ganderkesee 

1150: Thomas Quick, Mannheim 

1200: Hans-Detlef Meier, Hannover 


1250: Peter Holzwarth, St. Augustin 
1300: Dieter Charchot, Hamburg 
1350: Rudolf Willenbücher, Sinzheim 
1400: Georg Foltin, Erkrath 

1450: Karl-Heinz Ruppert, Würzburg 
1500: Dr, Edi Stricker, CH-Olten 
1550: Hans H. Meier, Germering 
1600: Reinhard Müller, Mettingen 


Die erste Club-Mitglieder-Liste wird Anfang 
Mai verschickt. Technische Einzelheiten zur 
Version 2.0 sowie zu den drei Kyan-Tool- 
kits, die ebenfalls zu Club-Sonderpreisen 
erhältlich sind, folgen im nächsten Peeker. 


Megaboard-Sonderangebot 


In diesem Heft bieten wir zum ersten Mal ei- 
ne Hardware im Rahmen des Hüthig Soft- 
ware Service an, und zwar eine Festplatte 
namens „Mobile Datenbox“ mit Megaboard- 
Controller und fertig angepaßtem Dateiver- 
waltungsprogramm. Diese Komplettlösung 
ist sicherlich nicht nur für kaufmännische 
Apple-Anwender interessant. 
Möglicherweise werden wir in Zukunft auch 
Hardware-Produkte amerikanischer Prove- 
nienz anbieten, denn zu unserer Enttäu- 
schung müssen wir immer wieder feststel- 
len, daß bestimmte Produkte wie etwa das 
nützliche „Fingerprint Plus“ (siehe Heft 4/ 
85) von keinem einzigen deutschen Apple- 
Händler vertrieben wird. 


Leserbriefe 


Nach dem Ausscheiden von Herrn Grumser 
muß ich vorübergehend die Peeker-Re- 
daktion ganz allein betreuen. Deshalb hat 
sich das Erscheinen dieses Mai-Heftes ver- 
zögert, und auch das Juni-Heft wird verspä- 
tet erscheinen. Aus diesem Grunde bin ich 
gezwungen, die Leserbrief-Politik zu än- 
dern. Sie werden es kaum glauben, aber 
seit Erscheinen des Peekers im September 
1984 ist die Leserkorrespondenz auf 26 
Leitz-Ordner angeschwollen. Ab sofort wer- 
de ich deshalb nur noch diejenigen Zu- 
schriften beantworten, die sich konkret auf 
Peeker-Aufsätze oder -Software beziehen. 
Alle anderen Anfragen, die Sie eigentlich an 
den Produzenten oder Ihren Händler hätten 
richten müssen, werden entweder gar nicht 
mehr beantwortet oder in veröffentlichte Le- 
serbriefe umgemünzt, wenn sie von allge- 
meiner Bedeutung sind, Bitte beachten Sie 
die einfache Faustregel: Zuständig für tech- 
nische Anfragen ist immer diejenige Firma, 
die Ihnen die Ware verkauft hat. 


Yanı EEE 


Ulrich Stiehl 
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Ein Simulationsprogramm in Turbo-Pascal 3.0 


von Manfred Stertenbrink 


Das Programm simuliert die Fußballwelt- 
meisterschaft 1986 in Mexiko. Dazu wer- 
den zunächst die sechs Vorrundengrup- 
pen und dann das Achtel-, Viertel-, Halb- 
und Finale durchlaufen. Bekanntlich spielt 
in den Vorrundengruppen jeder gegen je- 
den, wobei die beiden Gruppenersten auf 
jeden Fall, der Gruppendfitte eventuell in 
die Endrunde (Achtelfinale) kommen. Im 
weiteren Verlauf wird im K.o.-System ge- 
spielt. 


1. Toto-Verfahren 


Zur Simulation stehen vier Alternativen zur 
Auswahl, die prinzipiell alle nach einem 
Verfahren arbeiten, welches bei der Auslo- 
sung der Totozahl für ausgefallene Spiele 
verwandt wird. Bei dieser Auslosung wird 
dem Zufall dadurch möglichst wirklich- 
keitsnah vorgebeugt, daß die Wahrschein- 
lichkeit für die 0, 1 oder 2 nicht etwa 
gleichgroß ist, sondern den Spielstärken 
der Mannschaften angepaßt wird. Deshalb 
setzen einige Experten eine „amtliche 
Tendenz“ für jedes Spiel fest, die sich aus 
drei natürlichen Zahlen zusammensetzt, 
deren Summe zehn ergibt. So bedeutet 
beispielsweise 6-1-3, daß die Wahr- 
scheinlichkeit für einen Sieg der 1. Mann- 
schaft 0,6, die Wahrscheinlichkeit für ei- 
nen Sieg der 2. Mannschaft 0,3 und die 
Wahrscheinlichkeit für ein Unentschieden 
0,1 beträgt. 


Man kann sich das Verfahren so vorstel- 
len, daß in eine Urne sechs Kugeln mit der 
Ziffer 1, eine Kugel mit der Ziffer O und drei 
Kugeln mit der Ziffer 2 gelegt werden. 
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Dann wird eine Kugel gezogen, und die 
Zitfer auf dieser Kugel gibt die gesuchte 
Totozahl an. Grundsätzlich muß jede der 
drei Ziffern O, 1, 2 in der Urne vorkommen 
(so ist beispielsweise 8-2-0 nicht erlaubt), 
da auch Siege von Fußballzwergen mög- 
lich sind und bei den letzten Weltmeister- 
schaften vorkamen; die bundesdeutsche 
Mannschaft kann davon berichten. 


Im einzelnen verfahren die vier Alternati- 
ven wie folgt: 


a) Totaler Zufall 
Alle Spiele werden auf 3-4-3 gesetzt. 


b) Zufall nach von einer Expertengruppe 
vorgegebenen Spielstärken 

Es wurden 20 „Experten" um eine Einstu- 
fung der Mannschaften (verschiedene 
Wertigkeiten) gebeten. Im Programm wird 
diese Wertigkeit jeweils ins Totosystem 
übertragen. Zwei Beispiele: 

Bulgarien (Wertigkeit 4) - Italien (Wertig- 
keit 6) wird 3-3-4 gesetzt, 

Mexiko (Wertigkeit 7) - Irak (Wertigkeit 1) 
wird zu 7-2-1. 


c) Zufall nach von Ihnen vorgebenen 
Spielstärken 

Analog zu (b), nur wird die Einstufung der 
Mannschaften durch den Benutzer vorge- 
nommen. 


d) Zufall nach von Ihnen für jedes Spiel 
vorgenommener Toto-Vorhersage 

Hier wird bei jedem einzelnen der 52 Spie- 
le die Eingabe der Toto-Tendenz erwartet. 


Nach diesen Vorgaben wird per Zufall ein 
Sieger bzw. ein Unentschieden ermittelt 
und zusätzlich ein geeignetes Torergebnis 
erzeugt. Bei Unentschieden in der End- 
runde erfolgt eine neue Simulation, so daß 
auch Ergebnisse „nach Verlängerung" 
auftauchen. In den Vorrundengruppen 
wird jeweils eine Abschlußtabelle erstellt; 
für das Achtelfinale, für welches sich ne- 
ben den jeweiligen beiden ersten Teams 
der sechs Gruppen noch die vier besten 
Gruppendritten qualifizieren, findet eine 
entsprechende Auswahl statt. 


Zusätzlich zu diesen Alternativen bietet 
das Programm noch die Möglichkeit, voll- 
kommen unabhängig vom Zufall die ent- 
sprechenden Spielergebnisse einzuge- 
ben, wobei dann ebenfalls das komplette 
Turnier mit Tabellen, Qualifikation für die 
nächste Runde usw. durchlaufen wird. 


2. Beispiel 


Zur Veranschaulichung sind zwei Auszüge 
tabellarisch dargestellt; diese sind unter 
der Wahl (b) entstanden und zeigen die 


Ergebnisse aus Gruppe 5 und dem Achtel- 
finale. 


Achtelfinale 

Belgien : Ungarn 2:0 
Frankreich : Paraguay 2:1.n, Verl. 
Bulgarien : Dänemark 1:0 
Brasilien : Portugal 2:0 

Italien : UdSSR 3:2.n. Verl. 
Polen : Deutschland 4:3 n. Verl. 
England : Mexiko 4:3 n. Verl. 
Uruguay : Spanien 0:1 

Gruppe 5 

Uruguay : Deutschland 2:0 
Schottland : Dänemark 1:0 
Deutschland : Schottland 2:0 
Dänemark : Uruguay 1:0 
Dänemark : Deutschland 22 
Schottland : Uruguay 0:2 
Tabelle: 

1. Uruguay 4:1 4:2 
2. Deutschland 4:4 38 
3. Dänemark 3:3 39 
4. Schottland 1:4 2:4 


Unter Wahl (b) sind die Mannschaften fol- 
gendermaßen gesetzt: 


l. Brasilien 

2. Argentinien 
Frankreich 
Daenemark 

5. Mexiko 
Deutschland 
Uruguay 
England 

9. Italien 
Belgien 
UdSSR 
Spanien 
Schottland 
Polen 
Portugal 

16, Paraguay 
Ungarn 

18. Bulgarien 
Nordirland 

28. Algerien 

21. Suedkorea 
Kanada 
Marokko 

24. Irak 


OD PRTTIOTNOTO A-2200 00 


Eine 3000-fache Simulation ergab folgen- 
des Ergebnis: 

(Anzahl der gewonnenen Weltmeister- 
schaften) 


l. Brasilien 263 
2. Frankreich 254 
3. Argentinien 238 
4. Daenemark 208 
5. Mexiko 196 
6. England 176 
7. Uruguay 165 
8. Polen 162 
9. Belgien 156 
18. Deutschland 153 
ll. UdSSR 143 
12. Portugal 156 
13. Italien 131 
14. Paraguay 128 
15. Schottland 11 
16. Spanien 191 
17. Ungarn 94 
18. Nordirland 63 
19. Bulgarien 47 
28. Algerien 25 
21. Irak 2 
22. Marokko 19 
23. Kanada 14 
24, Suedkorea 5 





3. Implementierung 


Das Programm, das in Turbo-Pascal 3.0 
geschrieben wurde und eine CP/M-Ver- 
sion mit mindestens 60K, also CP/M 2.23 
oder 2.26, voraussetzt, besteht aus den 
drei sehr umfangreichen Modulen 


WM86.PAS (Hauptprogramm) 
VORSPANN.PAS (Include-Datei) 
ENTSCHEI.PAS (Include-Datei) 


Aus Platzgründen können diese Program- 
me nicht im Peeker abgedruckt werden 
und befinden sich deshalb nur auf der 
Sammeldiskette. 


Verfahren Sie Schritt für Schritt wie folgt: 


1 Sammeldisk #17 mit den DOS-3.3- 
Textfies WM86.PAS, VORSPANN.PAS 
und ENTSCHEI.PAS in Laufwerk 2 (= B) 
einlegen. 


2 CP/M-Diskette (60K- oder 64K-Ver- 
sion), die Turbo-Pascal 3.0 und APDOS 
enthalten sollte, von Laufwerk 1 (= A) 
booten. 


3 APDOS starten und nach dem Stern- 
chen jeweils eingeben: 


*WM86.PAS=WM86.PAS 
*VORSPAN.PAS=VORSPANN.PAS 
*ENTSCHE.PAS=ENTSCHEI.PAS 


Beachten Sie, daß wegen eines Bugs in 
APDOS zunächst die letzten beiden Ziel- 
namen um einen Buchstaben gekürzt wer- 
den müssen. 


4 APDOS über Ctrl-C verlassen und nun 
die letzten beiden Namen wieder richtig 
benennen, also 


>REN VORSPANN.PAS=VORSPAN.PAS 
>REN ENTSCHEIPAS=ENTSCHE.PAS 


5 Jetzt Turbo-Pascal 3.0 starten und bei 
„Include Error Messages“ je nach CP/M- 
Version ggf. mit N für Nein antworten. 


6 OÖ für Optionen wählen, C für COM-File 
tippen und wieder zurück über Q für Quit. 


7 C für Compilieren tippen und dann 
WM886 für „Workfile name“ eingeben. Der 
Rest der Compilierung erfolgt automa- 
tisch. Beachten Sie jedoch, daß noch ge- 
nügend Platz auf der Diskette ist, da 
WM86.COM allein 23K einnimmt. 


8 Nun Turbo-Pascal verlassen und Pro- 
gramm mit WM86 von CP/M aus starten. 
Alles Weitere können Sie dann dem Menü 
entnehmen. 














Ein Luxus-Disk-Editor für ProDOS 


von Arne Schäpers 


Teil 1: Befehlsauswertung und Diskettentreiber 


Hinweise 

1. Wegen des Umfangs mußte der Beitrag 
in 3 Teile aufgespalten werden. Die 
Peeker-Sammeldisk #17 enthält aber 
schon jetzt den kompletten Quellcode des 
Gesamtprogramms, während der komplet- 
te Objektcode auf die Sammeldisk #18 
aufgenommen werden wird. 

2. Da es sich um ein ProDOS-Programm 
handelt, bot es sich an, den ProDOS- 
„EDASM“-Assembler der Firma Apple zu 
verwenden. Deshalb ist der Quellcode auf 
der Sammeldisk ausnahmsweise nicht im 
Big-Mac- bzw. Merlin-Format. 

3. Durch das gesonderte DISKIO-Modul 
läßt sich der für ProDOS gedachte Disk- 
Editor auch für DOS 3.3, CP/M und Pascal 
erweitern. Aus Platzgründen ist jedoch 
vorläufig nur die ProDOS-Version vorge- 
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sehen, Im Falle einer entsprechenden Le- 
serresonanz werden noch die anderen 
DISKIO-Module entwickelt. Schreiben Sie 
an den Peeker! 


1. Geschichte des Programms 


Angefangen hat es mit der Feststellung, 
daß es noch keinen Disk-Editor für Pro- 
DOS gibt und daß man einen schreiben 
müßte, ganz im speziellen für Konfigura- 
tionen, die nicht ausschließlich mit der 
Disk I] arbeiten — die meisten Disk-Utilities 
für DOS 3.3 haben ihre eigene RWTS (= 
Read-Write-Track-Sector-Routine) und 
sind deshalb in diesem Fall nicht einmal 
eingeschränkt brauchbar. Bei diesen 
Überlegungen blieb es vorerst. 


Als mir dann tatsächlich eine ProDOS- 
Diskette durch ein wildgewordenes Pro- 
gramm „auf Nimmerwiedersehen“ gesagt 
hatte, war erfreulicherweise „T.L.D.U.“ 
zur Hand. Dieses Programm ist im Peeker, 
Heft 6/85 bereits besprochen worden - es 
funktioniert für alle vier Betriebssysteme, 
benutzt die (u.U. gepatchte) RWTS bzw. 
RWTB des Betriebssystems und ist dar- 
über hinaus noch unwiderstehlich billig. 
(Es soll allerdings nicht mehr mit den neu- 
en lle-ROMs uneingeschränkt funktionie- 
ren. US) 

Warum dann noch ein eigenes Programm 
schreiben? T.L.D.U. hat dasselbe Problem 
wie fast alle Programme, die sehr viel kön- 
nen: Es ist mir zu kompliziert. 

Eine der häufigsten Kritikpunkte an einem 
anderen „Cadillac“-Programm, nämlich 


Peeker 5/86 
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bei Dr, Alfred Hüthig Verlag GmbH, Im Weiher 10. 
6900 Heidelberg 1 widerrufen. Zur Wahrung der 
Frist genügt die rechtzeitige Absendung. Ich be- 
stätige die Kenntnisnahme mit meiner Unterschrift: 


2. Unterschrift 


Dafür schenkt »peeker« Ihnen etwas: 
Die praktische und formschöne Box, 
die Ihre Disketten übersichtlich 


Sie wissen ja, wie gut »peeker« 
Ihnen im täglichen Umgang mit 
Ihrem Apple behilflich ist. Und Sie 
brauchen Ihren »peeker« nicht mehr 
zu teilen oder auszuleihen. 
Die Diskettenbox ist unser 

| Geschenk an Sie für einen neuen 
»neeker«-Abonnenten. Denn wer 
einen Apple hat, der soll auch 
seinen »peeker« haben. 






i peeker 5+6/86 
Coupon ausschneiden und 


einsenden ar: 


»peeker« 
Abonnementservice 


Im Weiher 10 
6900 Heidelberg 1 


je 


Hüthig 


PUBLIKATION 


dem Wordstar, ist: „Wenn man damit alle 
zwei Wochen einen einzigen Brief schrei- 
ben soil, geht es mit der Schreibmaschine 
schneller.“ Sollten Sie einen Sektor-Editor 
wesentlich öfter als alle zwei Wochen 
brauchen, wäre es vielleicht angebrachter, 
einmal die Laufwerke zum Reparieren zu 
bringen... 


Damit sind die Eckbedingungen für ein 
derartiges Programm festgelegt, ein typi- 
scher Programmablauf (z.B. „unDELETE“ 
eines DOS-3.3-Files) sollte im Idealfall so 
aussehen: 

— Disk-Editor starten; 

— Zieldiskette einlegen; 

— „R 11,F* eingeben: liest den ersten 
CATALOG-Sektor; 

— „D* eingeben: Hex-ASCIl DUMP; 

-— „Sxx: yy“: setzt die entsprechende 
Tracknummer des T/S-Sektors; 

— „Szz: AO“: setzt den Filenamen wieder 
richtig; 

— „W*: schreibt den Sektor 

— „CATALOG“: da sollte der File jetzt 
wieder zu sehen sein; 

— „Q": Ende des Sektor-Editors — ohne 
Reboot des Betriebssystems. 


Programme, die so etwas können, sind 
schon des Öfteren in diversen Computer- 
zeitschriften veröffentlicht worden. Sie 
melden sich typischerweise mit 
1} Lesen 2) Schreiben 3) Ende 


In der Überschrift zu diesem Artikel steht 
ja bereits das Wort „Luxus“ — betrachten 
Sie bitte einmal folgende Kommando- 
zeilen: 


S/TESTVOL/TESTIH!I%A=0!%B=100!D 
YOIMI%C(KA%D(%B!% D?O!J+2 
IY11%C+100!%D-1!J-1 
IY2I%C?OIJ+3!R%CIFZIEL!J-3!PD 
IY3I%A+1!%B+1!%B?2001J-0 


Hier wird auf dem ProDOS-Volume TEST- 
VOL der File TEST herausgesucht und 
danach jeder Block des Files nach der 
Zeichenfolge ZIEL abgesucht. Wird diese 
Zeichenfolge gefunden, folgt ein Hex/AS- 
CII-Dump auf den Drucker. Die Suche en- 
det mit dem letzten Block des Files. 

Oder, etwas verständlicher ausgedrückt: 
Das kann das Programm auch, nur muß es 
der Benutzer nicht können, um „auf die 
schnelle“ irgend etwas auf einer Diskette 
zu verändern. 


Gehen wir gleich ans „Eingemachte”. Das 
Programm leistet folgendes: 

— Bearbeitung von ProDOS-, DOS-3.3-, 
Pascal- und CP/M-Disketten sowie ent- 
sprechender RAM-Disks; 


— das Betriebssystem bleibt 100%jig intakt, 
d.h. vorher ausgeführte Patches für RAM- 
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Karten, 160-Track-Drives usw. bleiben er- 
halten; 

— das Programm selber ist lauffähig unter 
ProDOS und DOS 3.3; 

— die Bildschirmanzeige unterstützt 40 Z/Z 
(nur Großbuchstaben), 40 Z/Z (Groß- und 
Kleinschreibung), videx-kompatible 80- 
Zeichenkarten sowie die 80-Zeichenkarte 
des Iic/e. Die Anzeigeart wird vom Pro- 
gramm automatisch bestimmt; 

— unter ProDOS kein „SYSTEM"-Pro- 
gramm, d.h. nach Programmende muß 
nicht erneut das BASIC.SYSTEM geladen 
werden. 


Wenn Sie jetzt ein 20K-Monsirum erwar- 
ten: Die Programmlänge beträgt je nach 
Ausbaustufe zwischen 4,5 und 6,8K. 
Durch entsprechenden Programmierstil 
kann man aus dem gesamten Programm 
mit Sicherheit noch einige hundert Bytes 
„herausholen“ — aus Gründen der „Nach- 
bausicherheit” habe ich allerdings davon 
Abstand genommen. 


Das Programm besteht aus insgesamt fünf 
Source-Files: 

ED.FRAME.TXT — Programmstart, Kom- 
mando-Einlese, -Verteilung und -Auswer- 
tung sowie alle Bildschirm-Funktionen 
(PRINT und Cursorsteuerung); 
ED.DISKIO.TXT - betriebssystem-spezi- 
fischer (RAM-)Disk-Treiber; 
ED.FUNCS1.TXT - die einzelnen Be- 
fehls-Routinen, erster Teil; 
ED.FUNCS2.TXT - Befehls-Routinen, 
zweiter Teil; 

ED.CMDS.TXT —- Kommando-Tabelle und 
Puffer-Definitionen. 


Da sich das gesamte Programm doch auf 
rund 2500 Zeilen summiert, werden in die- 
sem Teil 1 nur ED.FRAME und ED.DISKIO 
zusammen mit ein paar Kommandos geli- 
stet und besprochen. ED.FUNCSI1, ED- 
.‚FUNCS2 sowie DISKIO folgen in den 
nächsten Ausgaben. 


2. Kommando-Übersicht 


Editier--Kommandos in der Kommando- 
zeile 


Linkspfeil: Cursor nach links, beendet IN- 
SERT und DELETE; 

Rechtspfeil: Cursor nach rechts, beendet 
INSERT und DELETE; 

<RETURN>: Abschluß der Kommando- 
zeile, nur links vom Cursor stehende Zei- 
chen werden berücksichtigt; 

Ctrl-X: Löschen der gesamten Komman- 
dozeile; 

Ctri-l: INSERT ab Cursorposition, rechts 
vom Cursor stehende Zeichen verschie- 
ben sich entsprechend; 


Ctrl-D: DELETE ein Zeichen unter dem 
Cursor, rechts vom Cursor stehende Zei- 
chen verschieben sich entsprechend; 
<ESC>: das nächste getippte Zeichen 
wird auf Kleinschreibung übersetzt, sofern 
möglich. 

Ctri-E: (Re)EDIT, läßt die „alte“ Komman- 
dozeile auf dem Bildschirm, wenn als er- 
stes Zeichen eingegeben. 

Ctrl-C: bricht die Programmausführung in- 
nerhalb einer Kommandozeile ab. 


Die Befehle in ED.DISKIO 


a) Prefix- und File-Kommandos 


8/Volname lädt den ersten Block des Vo- 
Iume-Directory in den Arbeitspuffer (= 
BUFFER); 

8/Volname/Filename lädt den ersten 
Block eines Files (oder eines Subdirecto- 
ry) ein; 

RPx,y setzt Slot x, Drive y als READ- 
Drive; 

RP/Volname sucht das entsprechende 
Volume und setzt damit den READ-Drive. 


b) Block-READ und -WRITE 


Rxxx liest Block xxx in den ÄArbeitspuffer; 
R+ liest den nächsthöheren, 

R- den nächstniedrigeren Block; 

R liest den zuletzt gelesenen Block noch 
einmal, 


WPx,y, 

WP/Volname, 

Wıxx, 

W+, 

W- und 

W 

sind entsprechende Kommandos für 
WRITE. 


Zusätzliche Kommandos 


X: Aufruf des Monitors, Return zu EDIT mit 
Ctrl-Y. 

Q: Quit. Ende von EDIT via $03D3, d.h. 
BASIC-Warmstart. 


Einige Anmerkungen 


Ctrl-E: Da speziell bei längeren Komman- 
dozeilen das Neutippen reichlich mühselig 
sein kann, gibt es dieses spezielle Con- 
tro-Kommando, das nach Ausführung der 
Kommandozeile oder Abbruch durch Feh- 
ler als erstes getippt werden muß. Damit 
bleibt die fehlerhafte „alte“ Kommando- 
zeile stehen und kann nötigenfalls Korri- 
giert werden. 

Ctrl-C: Vor der Ausführung jedes neuen 
Befehls wird das Keyboard überprüft. 
Wenn Ctrl-C gedrückt worden ist, wird die 
Kommandozeile als beendet angesehen. 
Dieser Befehl ist nur im Zusammenhang 
mit Schleifen interessant. 
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8/Volname/Filename lädt immer den er- 
sten Block eines Files in den Arbeitspuffer. 
Dieser erste Block ist nur bei Files mit 
Storage Type 1 und bei (Sub)directories 
mit dem ersten Datenblock identisch, an- 
sonsten handelt es sich dabei um den 
Indexblock bzw. um den Masterblock! 


RP setzt das WRITE-Prefix immer mit. 
Wenn von einem Drive gelesen und auf 
ein anderes geschrieben werden soll, muß 
zuerst mit „RP" der READ-Drive, danach 
mit „WP" („WPx,y“ oder „WP/Volname*) 
der WRITE-Drive gesetzt werden. 


R setzt die Blocknummer für WRITE im- 
mer mit. Wenn von einem Block gelesen 
und auf einen anderen geschrieben wer- 
den soll, muß zuerst mit 

R <xx,+,-,> 

der READ-Block gelesen und danach mit 
W<xX, +,-,> 

der WRITE-Biock geschrieben werden. 


X: Der Sprung in den Monitor hängt zuerst 
das jeweilige DOS wieder an. Hauptan- 
wendung für dieses Kommando sind CA- 
TALOG usw. sowie LIST des Arbeitspuf- 
fers. Der Arbeitspuffer geht von $2000 bis 
$21FF bzw. bis $20FF (für DOS 3.3 und 
CP/M). 


3. ED.FRAME 
3.1. Allgemeine Beschreibung 


ED.FRAME ist der „Rumpf“ des gesamten 
Programms und zerfällt in folgende Teile: 
a) Initialisierung des Programms; 

b) Installation (40/80 Z/Z, Groß-Klein- 
schreibung); 

c) „Einsammeln“ einer Kommandozeile; 
d) Abarbeitung der Kommandozeile (Com- 
mand Interpreter); 

e) Bildschirm-Routinen (Druck eines Zei- 
chens, HOME usw.); 

f) Parameter-Auswertung. 


ED.FRAME (und damit das gesamte Pro- 
gramm) hat zwei Einsprünge: 

6803 (dezimal 2051): löscht den Arbeits- 
puffer und alle Flags; 

$806 (dezimal 2054): !äßt Puffer und Flags 
intakt. 


Dieser Programmteil ist (genauso wie ED- 
‚DISKIO) vollständig und wird im Verlauf 
der folgenden Erweiterungen nicht mehr 
verändert. 


3.2. Problemstellungen 


Das „Einsammeln“ der Kommandozeile 
und das Ausdrucken eines Zeichens so- 
wie die Cursorsteuerung müssen sowohl 
für 40 Z/Z als auch für Videx- und Ilc/e- 
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80- Zeichenkarten funktionieren. Da der 
Monitor außer <CR> (Carriage Return; 
Returntaste) und <BS> (Backstep; Links- 
pfeiltaste) keine Steuerzeichen zur Cur- 
sorpositionierung kennt, muß bei den 
Löschroutinen Clear to End of Page 
(Löschung bis Seitenende) und Clear to 
End of Line (Löschung bis Zeilenende) 
zwischen 40 Z/Z, d.h. Monitoraufruf, und 
80 Z/Z, d.h. Steuerzeichen unterschieden 
werden. 

Das Neudrucken einer Kommandozeile 
nach INSERT oder DELETE eines Zei- 
chens gestaltet sich deshalb geradezu 
abenteuerlich: 

Zuerst wird der entsprechend verlängerte 
(verkürzte) Teil der Kommandozeile rechts 
vom Cursor neu gedruckt, danach folgt 
eine Löschung bis Seitenende. Um jetzt 
den Cursor wieder auf das Zeichen zu 
positionieren, das neu getippt wurde (bzw. 
auf das Zeichen rechts davon bei einem 
DELETE), wird zuerst die (bekannte) Posi- 
tion des ersten Zeichens in der Komman- 
dozeile gesetzt, danach wird der String- 
Teil links von der ursprünglichen Cursor- 
position neu gedruckt. Als Ergebnis steht 
der Cursor dann tatsächlich da, wo er hin- 
gehört. 


3.3. Ausgewählte Routinen 


(Die Routinen werden in der Reihenfolge 
der Speicheradressen beschrieben. Siehe 
Z. = Zeilennummenn des Listings) 


INIT (Z. 36-52) löscht den Puffer und 
sämtliche Flags (Betriebsarten, 80-Z/Z-Er- 
kennung usw). 

INSTALL (Z. 55-148): zuerst wird das 
DOS „abgehängt“, diese Routine (DIS- 
CONN) ist betriebssystem-spezifisch und 
deshalb in DISKIO enthalten. 

Wenn das Typ-Byte des Apple ($FBB3) 
kleiner als 8 ist (lle: 7, IIc:0, II//llI+: $EA), 
dann ist Kleinschreibung auf dem Key- 
board möglich, genauso wie für einen mo- 
difizierten II+, dessen AND-Maske in der 
Monitor-Routine KEYIN auf $FF (Standard: 
$DF) gesetzt ist. In diesem Fall wird ange- 
nommen, daß dann auch Kleinschreibung 
auf dem Bildschirm möglich ist. Das Flag 
SHIFTUP wird entsprechend gesetzt. 
Wenn Slot 3 belegt ist (konstanter READ), 
wird angenommen, daß hier eine 80-Zei- 
chenkarte steckt, HMAX wird in diesem 
Fall von 40 auf 80 erhöht, und das Flag 
IS40 (Unterscheidung in HOME, CLEOP, 
CLEOL) wird zurückgesetzt. Die Adresse 
der 80-Zeichenkarte ($C300) wird in den 
„Char Out“-Vektor ($36/37) eingesetzt. 
Beim ersten Aufruf via COUT wird die 
Karte dann ihre eigenen Vektoren einset- 
zen. Da die 80-Zeichenkarte für den lle/c 
sich (natürlich?) nicht durch die Speicher- 
stellen CH und CV ($24/$25) steuern läßt, 


was die Positionierung des Cursors an- 
geht, muß hierbei noch einmal zwischen 
„80 Z/Z Videx“ und „80 Z/Z IIc/e“ unter- 
schieden werden. Wenn die Karte des IIc/ 
e erkannt wird, wird das Flag IIEC auf $FF 
gesetzt, ansonsten bleibt es auf dem Wert 
00. 

(Hinweis: Wenn man dies gelesen hat, 
wird man auch verstehen, warum der als 
Zugabe auf der Peeker-Sammeldisk #16 
enthaltene Applesoft-Editor nur für 40 Z/Z 
geschrieben wurde. us) 


GETLINE (Z. 156-312) ist aufgrund der 
bereits erwähnten Problematik reichlich 
lang ausgefallen: Nach einer Positionie- 
rung auf VTAB 22, HTAB 1 wird auf das 
erste Zeichen via GETKEY, also der Stan- 
dard-Input-Routine, gewartet, Ist dieses 
Zeichen kein Ctrl-E, wird die Kommando- 
zeile mittels der Ctrl-X vom Schirm ge- 
löscht. 

Danach werden solange Zeichen geholt 
und an CMDSTR angehängt bzw. in 
CMDSTR eingesetzt, bis entweder ein 
<RETURN> auftaucht oder CMDSTR sei- 
ne maximale Länge erreicht hat. CMDSTR 
kann maximal 2 Zeilen lang werden, d.h. 
78 Zeichen bei 40 Z/Z und 158 Zeichen 
bei 80 Z/Z. 


GOTLINE (Z.320-359) fängt wieder mit 
dem ersten Zeichen von CMDSTR an. 
Nach einem Test des Keyboards auf Otrl- 
C wird die Tabelle CMDS {im File 
EDCMDS) nach dem CMDSTR-Zeichen 
abgesucht. CMDS enthält jeweils ein Zei- 
chen und danach eine Startadresse. Wird 
das Zeichen aus CMDSTR positiv vergli- 
chen, wird die Startadresse eingesetzt und 
die entsprechende Routine aufgerufen. In- 
nerhalb der Routine wird dann der 
CMDSTR ggf. weiter ausgewertet und der 
CMDIDX (Index in CMDSTR) entspre- 
chend weiter verschoben. Wenn der Be- 
fehl erfolgreich beendet wurde, geht es 
mit NXTCMD (Z. 327) solange weiter, bis 
CMDSTR zu Ende ist. 


CMDERR (Z.362-385) und DSPERR wer- 
den von allen möglichen Punkten her an- 
gesprungen: wenn ein Parameter „out of 
Range“ ist oder fehlt, bei einer Fehlermel- 
dung des DOS usw. Das Spezielle an 
dieser Routine ist der Einsprung mit ge- 
seiztem X-Register: X enthält den 
CMDIDX-Wert, an dem der Fehler erkannt 
wurde. 

Nach Ausdruck der Fehlermeldung auf 
VTAB 24 wird CMDSTR erneut gedruckt 
und zu GETLINE gesprungen, allerdings 
ohne vorherige Positionierung auf VTAB 
22 / HTAB 1. Der Cursor bleibt damit auf 
dem Fehler in CMDSTR stehen, bis die 
erste Taste gedrückt wird. 
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Sonderangebot für Peeker-Leser - Sonderangebot für Pee 


Festplattenkomplettlösung 
für jedermann 


Mit der Firma Frank & Britting GmbH, die 
auf Festplatten spezialisiert ist, konnten 
wir ein extrem günstiges Sonderangebot 
aushandeln, das eine Festplattenkomplett- 
lösung selbst für Apple-Besitzer mit klei- 
nerem Geldbeutel erschwinglich macht. 
Sie können unter zwei Varianten wählen: 


Luxus-Lösung: 20-Megabyte-Festiplatte 
MDB20 (MDB = Mobile Datenbox) + Me- 
gaboard-Controller + Handbuch + 3 Kon- 
figurationsdisketten + Anschlußkabel + 
DB-Meister-Dateiverwaltungsprogramm 
+ Handbuch + 2 Programmadisketten zum 
Gesamtpreis von nur DM 3199,- inkl. 
MwSt. 

Standard-Lösung: 10-Megabyte-Fest- 
platte MDB10 + Megaboard-Controller + 
Handbuch + 3 Konfigurationsdisketten + 
Anschlußkabel + DB-Meister-Dateiver- 
waltungsprogramm + Handbuch + 2 Pro- 
grammadisketten zum Gesamtpreis von nur 
DM 2799,- inkl. MwSt. 

(jeweils 6 Monate Garantie.) 


Wozu eine Festplatte? 


Für eine Festplatte sprechen zwei Argu- 
mente, nämlich erstens der bedeutend 
größere Datenspeicher und zweitens die 
sehr hohe Zugriffszeit. 

® 80- und 160-Spur-Laufwerke haben 
zwar einen größeren Datenspeicher als 
die normalen 35-Spur-Laufwerke, doch ist 
die Zugriffszeit hier wie dort bescheiden. 
® RAM-Karten haben zwar eine hohe Zu- 
griffszeit, doch ist der Datenspeicher 
flüchtig: Strom aus — Daten weg! 

Für unsere Festplatten-Standard-Lösung 
(MDB10) gilt demgegenüber: 

— Die Nettospeicherkapazität beiträgt hier 
ca. 9.650K = ca. 9.880.000 Zeichen = ca. 
15 Disketten mit 160 Spuren = ca. 69 
Disketten mit 35 Spuren. 


— Die Datenübertragungsrate beträgt auf 
unterster Ebene ca. 44K/s = ca. 45.000 
Zeichen/s. Zum Vergleich beläuft sich die 
Übertragungsrate bei normalen Disketten- 
laufwerken auf ca. 7,5K/s und bei RAM- 
Karten auf ca. 44K/s, d.h. RAM-Karten 
sind also keineswegs schneller, sondern 
meist sogar langsamer als die MDB-Fest- 
platte. 

Sie erhalten deshalb mit unserer Festplat- 
tenlösung einen großen externen Massen- 
speicher bei sehr hoher Datenübertra- 
gungsrate zu einem äußerst niedrigen 
Preis. 


Unkomplizierte Installation 


Die eigentliche Festplatte, also die „Mobi- 
le Datenbox“ MDB, ist ein kleines rechtek- 
kiges Kästchen mit der Länge einer Hand- 
flache. Das eine Ende des Flachbandka- 
bels wird in die MDB, das andere Ende in 
den Megaboard-Controller gesteckt, der 
wie eine normale Erweiterungskarte aus- 
sieht und in jeden Slot von 1-7 paßt. Die 
MDB hat ein eigenes Netzteil. Deshalb 
brauchen Sie jetzt nur noch die MDB und 
danach den Apple einzuschalten, und fer- 
tig ist die Installation. Im Gegensatz zur 
Megacore-Festplatte, die wegen des Ap- 
ple-Netzteil-Wechsels von Apple-Händ- 
lern eingebaut werden sollte, ist die Instal- 
lation der MDB von jedermann problemlos 
zu bewerkstelligen. 


Problemiose Konfigurierung 


Danach booten Sie die mitgelieferte Sy- 
stemdiskette DOS-CONFIG von einem 
35-Spur-Laufwerk, tippen „I“ für Initiali- 
sieren, geben die Festplattenparameter 
ein (bei MDB10: 4 Köpfe, 306 Zylinder, 
Präkompensation ab dem 256. Zylinder 
und Schneller Zugriff Ja), und nach zwei 
weiteren Kontrollbestätigungen beginnt 
die Initialisierung. Dies dauert ca. 14 Minu- 
ten für die MDB10, und nunmehr kann die 
Festplatte mit den Betriebssystemen be- 
schrieben werden. 


Als Betriebssysteme können Sie im ein- 
zelnen verwenden: 

—- DOS 3.3, 

— Diversi-DOS 2C und 4C, 

— Apple-Pascal 1.1 und 1.2, 

= EDS 10 17.0 2121: 

—- CP/M 2.2 56K (z.Zt nur diese CP/M- 
Version). 


Die Konfigurierung, d.h. die Speicherver- 
teilung auf die verschiedenen Betriebssy- 
steme, sollte mit Bedacht überlegt wer- 
den. Nicht-benötigte Betriebssysteme 
können Sie natürlich weglassen. Nehmen 
wir an, Sie brauchen zunächst nur DOS 
3.3. Wie wird nun konfiguriert? 


Sie booten nach der obigen Initialisierung 
die Festplatte mit PR#7 und wählen aus 
dem automatisch erscheinenden Bild- 
schirm-Menü „C" für „Configuration“. 
Dann Tippen Sie „D“ für DOS 3.3, danach 
„V“ für Volumes, danach z.B. „10“ für 10 
Volumes = 2 x 10 x 140 = 2800K (1 
Volume entspricht einem 35-Spur-Dop- 
pellaufwerk). Nun können Sie nach zwei 
weiteren Kontrollbestätigungen die neue 
Konfiguration auf die Diskette schreiben, 
was nur wenige Sekunden dauert. So ein- 
fach ist das! Später können Sie dann, so- 
bald Sie mit der Festplatte besser vertraut 
sind, bei Bedarf die Konfigurationen für 
ProDOS, Apple-Pascal und CP/M nach- 
holen. 


Wie spricht man die MDB an? 


Sie werden sich nun vielleicht fragen, wie 
Sie die Festplatte ansprechen müssen und 
ob Sie neue DOS-Befehle lernen müssen. 
Mitnichten! Booten Sie einfach die Fest- 
platte mit PR#7 - übrigens heißt es immer 
PR#7, auch wenn Sie die Megaboard- 
Karte z.B. in Slot 4 gesteckt haben — und 
danach z.B. 

INITHELEORSZ- VS. BD] 

Damit wird das Volume in „Drive 1, Slot 7“ 
formatiert. Nun können Sie mit 

CATALOG 

RUN usw. 

auf dieses Volume wie üblich zugreifen. 


Peeker 5/86 





Wie schnell ist die MDB? 


Die Datenübertragungsrate beträgt bei der 
MDB physikalisch 5 MBits/s. Dies ist ein 
theoretischer und niemals erreichbarer 
Wert. Auf Spur-Sektor- bzw. Biockebene 
beträgt die praktisch erzielbare Übertra- 
gungsrate ca. A4K/s bis 47,5K/s, je nach 
Betriebssystem. Einige anschauliche Bei- 
spiele: Auf Sektorebene läßt sich ein 
140K-DOS-Volume mit dem Programm 
MDB.KOPY in 6,2s auf ein anderes 140K- 
Volume überspielen. Auf Dateiebene läßt 
sich eine 1-Megabyte-ProDOS-Datei mit 
dem Programm PROFID in 122s duplizie- 
ren. Dies sind umgerechnet 17.000 Bytes/ 
s für Lesen bzw. Schreiben. 


Was läuft mit der MDB? 


Sie können normale Disk-Il-Laufwerke 
und beispielsweise Erphi-160-Spur-Lauf- 
werke im Mischbetrieb einsetzen. Die zu- 
sätzliche Verwendung von RAM-Karten ist 
bei der MDB überflüssig, da mit diesen in 
der Regel keine höheren Übertragungsra- 
ten erzielt werden können. Die Accelerator 
Ile funktioniert einwandfrei in Verbindung 
mit dem Megaboard-Controller (Slot-7- 
Schalter auf 1MHz einstellen). Die Spee- 
demon funktioniert jedoch wegen des 
Cache-Speichers leider nicht. 


DB-Meister 


Speziell für die zukünftigen MDB-Besitzer 
wurde das Adreß- und Schemabriefpro- 
gramm DB-Meister, das in der normalen 
Diskettenversion DM 290,- kostet, zum 
Festplattenbetrieb umgeschrieben. Tech- 
nische Daten: 

— Datensatziänge bis zu 230 Zeichen, auf- 
teilbar in bis zu 25 Felder; maximal 1000 
Datensätze pro Volume 

— 2 variable Indexfelder und 1 zusätzliches, 
konstantes Suchfeld. 

— Maskengenerator-Modul für die freie 
Definition von Bildschirmeingabe- und 
Ausdruck-Masken. 

— Dateipflege-Modul zum Neueingeben, 
Ändern, Löschen, Ansehen, Bildschirm- 
Ausdruck usw. 


Peceker 5/86 


— Sortier- und Filter-Module zum Sortieren 
und Untersortieren nach Indexfeldern und 
zum selektiven oder kumulierenden Filtern 
nach beliebigen Feldern. 

— Druck-Modul zum Ausdrucken von 
Selbstklebe-Etiketten, tabellarischen Li- 
sten und Schemabriefen mit automati- 
schem Einschub von Adressen und Anre- 
den sowie weiteren Feldeinschüben im 
Briefkörper; Einzelblatt und Endlospapier 
verwendbar; Druckertreiber für Typenrad- 
drucker mit anderer Typenradbelegung 
können eingebunden werden. 

— Brief-Modul zum Schreiben der Sche- 
mabriefe; bei Bedarf separat verwendbar. 
— Schnelles Backup-Programm (nur 10 
Minuten für 2,5 Megabytes bzw. 18 DB- 
Meister-Dateien). 

— Diverse Spezial-Module zur Indexfeld- 
Umdefinierung, zur Sortierung nach Kun- 
dennummern usw. 

Alle Programm-Module laufen auf einem 
Apple Ile oder II+ mit MDB (Ausnahme: 
Das Brief-Modul funktioniert nur auf dem 
Ile mit 80-Zeichenkarte, doch können be- 
liebige Fremdtexte eingelesen werden.). 


Wie wird bestellt? 


Sie senden Ihre Bestellung an den Hüthig- 
Software-Service. Sie erhalten dann von 
der Firma Frank & Britting eine Voraus- 
rechnung, nach deren Überweisung Ihnen 
von dort die MDBiO bzw. MDB2O, der 
Megaboard-Controller, das Handbuch und 
die Konfigurierungsdisketten mit 6 Mona- 
ten Garantie geliefert werden. Gleichzeitig 
erhalten Sie vom Hüthig-Software-Service 
das DB-Meister-Programm (2 Disketten 
und Handbuch) in der für die MDB bereits 


je 


Hüthig 


PUBLIKATION 


Sonderangebot für Peeker-Leser - 


Das DB-Meister-Programm eignet sich für 
normale AdreBverwaltung sowie für 
Dateien aller Art mit vielen, aber kleinen 
Datensätzen (max. 230 Zeichen). Das Pro- 
gramm Ist nicht für das Schreiben von 
Rechnungen o.ä. gedacht. 

Die Verarbeitungsgeschwindigkeit des 
„DB-Meisters“ ist bei der MDB extrem 
schnell. Einige Sekundenangaben, bezo- 
gen auf eine Datei mit 500 Datensätzen zu 
je 220 Zeichen: 

— Modul-Wechsel: Is 

— Suche nach Indexfelder: 0,3s 

— Suche nach Nicht-Indexfeldern: 175 

— Filtern und Untersortieren: 25s 

—- Bildschirm- „Drucken“: 38s 

Noch ein etwas anschaulicheres Beispiel: 
Wenn Suchfelder neu vergeben werden 
sollen, muß die alte Indexdatei (ca. 50 
Sektoren) und die ganze Hauptdatei (ca. 
450 Sektoren) eingelesen werden und 
dann nach dem automatischen Heraussu- 
chen der neuen Suchwörter die neue In- 
dexdatei abgespeichert werden. Dieser 
normalerweise zeitraubende Prozeß dau- 
ert auf der MDB nur 14s. 


angepaßten Version. Nach einer geringfü- 
gigen Änderung im Hello-Programm kön- 
nen Sie diese Neuversion des DB-Mei- 
sters übrigens auch zusätzlich auf norma- 
len 35-Spur-Laufwerken einsetzen. 

Zur Bestellung können Sie eine der im 
Peeker eingehefteten Bestellkarten ver- 
wenden. Stichwort: 

1x MDB10-Sonderangebot für DM 2799, - 
oder 

1x MDB20-Sonderangebot für DM 3199, - 


SOFTWARE SERVICE 


Im Weiher 10 - 6900 Heidelberg 1 


Bildschirm- und PRINT-Routinen 


SETUC (Z. 394-397) übersetzt von Klein- 
auf Großbuchstaben. 

PRCHAR (Z. 399-415) druckt ein Zei- 
chen. Bei 80 Z/Z ist SHIFTUP immer ge- 
löscht, d.h. das Zeichen wird unverändert 
gedruckt. Bei 40 Z/Z wird das Bit 7 immer 
gesetzt. Wenn nur Großschreibung zuläs- 
sig ist, wird bei Kleinbuchstaben vorher 
auf „Großbuchstabe“ Übersetzt und durch 
das Setzen von INVFLAG im Monitor der 
Kleinbuchstabe als inverser Großbuchsta- 
be gedruckt. 

PRADBR (Z. 417-422) druckt Akku und Y- 
Register als dreistellige Hexzahl, gefolgt 
Von. 

PRTAY, PRTY, PRBYTE und PRHEX 
sind eine Kopie der Routinen aus dem 
Monitor; sie drucken A-Y als vierstellige 
Hexzahl bzw. über die jeweiligen anderen 
Einsprünge den Akku als zwei- und ein- 
stellige Hexzanhl. 

PRBITS (Z. 440-451) druckt den Akku- 
Inhalt als einzelne Bits aus und wird für die 
Darstellung der VBM (ProDOS) bzw. der 
VTOC (DOS 3.3) benötigt. 


CLRDSP (Z. 472-481) löscht den Display- 
Teil des Bildschirms, nämlich die Zeilen 5 
bis 20. Man hätte hier auch mit dem Set- 
zen von WNDBTM ($23), also der Unter- 
grenze des Textiensters, arbeiten können, 
aber es gibt tatsächlich 80-Zeichenkarten, 
die sich um diese Speicherstelle nicht 
kümmern und den gesamten Bildschirm 
löschen. 


HOME, CLEOP, CLEOL, SETCV und 
SETCH (Z. 488-527): Bedingt durch die 
80-Zeichenkarte des Ilc/e, die fröhlich alle 
Versuche ignoriert, den Cursor auf „lega- 
le“ Weise zu setzen, muß hier eine Unter- 
scheidung mit Hilfe des Flags IIEC getrof- 
fen werden, das in INSTALL entsprechend 
gesetzt wurde. Für alle anderen Konfigura- 
tionen werden In gewohnter Weise die 
Speicherstellen CH ($24) und CV ($25) 
gesetzt, für den Ilc/e sind es eben die 
Zwischenspeicherstellen des TEXT-Bild- 
schirms, die von dieser Karte benutzt 
werden. 

Diese verqauere Art und Weise bedingt den 
Einsatz der Speicherstellen EDCH und 
EDCV, in denen die Cursor-Position im- 
mer intern mitgezählt wird. Allerdings trifft 
das für EDCH nur bedingt zu; diese Spei- 
cherstelle wird nur durch ein „POKE 
36,xx“, also ein direktes Setzen eines 
(H)TAB-Wertes verändert — glücklicher- 
weise brauchen wir nicht jedes einzelne 
Zeichen mitzuzählen. 

HOME arbeitet wie üblich: Zuerst wird 
VTAB 1 / HTAB 1 gesetzt, danach folgt ein 
Clear to End of Page, also eine Löschung 
bis Seitenende, bei dem zwischen „Moni- 
tor“ und „80 Z/Z“ unterschieden werden 
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muß, weil der Monitor keine derartigen 
Steuerzeichen akzeptiert (auch das be- 
kannte „ESC Shift-CGtrl P* funktioniert nur 
von der Tastatur aus). Erstaunlicherweise 
sind die Steuerzeichen für Videx und 80 Z/ 
Z des IIc/e in diesen beiden Fällen tat- 
sächlich dieselben... 

Innerhalb von CLEOL (Clear to End of 
Line) haben wir leider einen echten Vor- 
griff auf den nächsten Teil dieser Aufsatz- 
folge: Alle Funktionen des Programms, die 
einen Output auf den Bildschirm erzeu- 
gen, lassen dasselbe auch für einen ange- 
schlossenen Drucker zu — nur daß die 
meisten Drucker ein CLEOL-Steuerzei- 
chen nicht spurlos verdauen würden. 
Folglich wird beim Modus „Drucker an“ 
(PRINTER-Flag = $FF) dieses Steuerzei- 
chen nicht gesendet. 


Die Argument-Berechnung 


GETPRM (Z. 533-576): Auch dies ist ein 
echter Vorgriff, weil im Moment noch keine 
einzige Funktion implementiert ist, die ein 
oder zwei Argumente benötigt. Diese 
Routine wird aber von mehreren spätere- 
ren Kommandos benutzt und gehört des- 
halb in ED.FRAME. 

Nehmen wir eine dieser Funktionen, z.B: 
„D*ump. Wenn „D“ ohne folgende Para- 
meter eingegeben wird, erfolgt ein DUMP 
von $0000 bis zum Ende des Puffers 
(MAXBUF) bzw. bis zum Ende des Dis- 
play-Feldes. 

Bei gegebener Startadresse, also z.B. 
„D30“ wird ab $0030 geDUMPT, wieder- 
um entweder bis zum Puffer-Ende oder 
bs zum Ende des Display-Feldes. 
GETPRM stellt hier fest, daß eine Start- 
adresse angegeben wurde, und setzt nur 
die Default-Endadresse (MAXBUF). 
Schlußendlich: Wenn sowohl Start- als 
auch Endadresse angegeben sind, (z.B. 
„D30,133“, dann wird eben von $0030 bis 
50133 geDUMRP!t. 


EVALARG (Z. 580-593) benutzt zuerst 
EVALHEX und überprüft dann, ob das er- 
haltene Argument im zulässigen Bereich 
(0...MAXBUF) liegt. Falls nicht, wird ein 
gesetztes Carry returnt, genauso, wenn 
EVALHEX keine Hexzahl auswerten 
Konnte. 


EVALHEX (Z. 587-612) ist eine generelle 
Auswertungsroutine für Hexadezimal- 
strings, deren Studium zwecks späterer 
Verwendung in eigenen Programmen si- 
cher lohnend ist. 

Der höherwertige Teil des Ergebnisregi- 
sters EVREG wird auf Null gesetzt, danach 
wird das nächste Zeichen aus CMDSTR 
geholt und via SETHEX von ASCIi auf eine 
Zahl umgerechnet. SETHEX returnt mit 
gesetztem Carry, wenn dieses Zeichen 
keine gültige Hexzahl ist. Das führt, wenn 


es sich um das erste Zeichen innerhalb 
von EVALHEX handelt, zum Ende von 
EVALHEX mit gesetztem Carry, d.h. 
EVALHEX hat überhaupt keine Hexzahl 
gefunden. Ansonsten wird EVREG mit 
dem Ergebnis gesetzt. In EVLOOP wird 
das nächste Zeichen aus CMDSTR geholt. 
Falls es sich um eine weitere Hexzanhl 
handelt, wird EVREG (und EVREG+1) mit 
16 multipliziert und CMDIDX solange er- 
höht, bis keine weitere Hexzahl mehr in 
CMSTR folgt. EVALHEX returnt dann mit 
Carry clear („Hexzahl gefunden”) und 
entsprechend berechnetem EVREG. (Es 
soll ja tatsächlich noch Programme geben, 
die sich bei der Eingabe von „E” anstelle 
von „$O0O0OE“ mit einer Fehlermeldung be- 
schweren...) 


SETHEX (Z. 615-622) benutzt TSTHEX. 
Wenn TSTHEX mit Carry clear returnt, also 
positiv auf „Hexzahl“ erkannt hat, wird 
umgerechnet, ansonsten returnt SETHEX 
ebenfalls mit gesetztem Carry. 


TSTHEX (Z. 624-634) sieht etwas auf- 
wendig für einen schlichten Test auf „Hex- 
zahl“ aus. Hier geht es aber darum, den 
Akku-Inhalt unverändert zu lassen und nur 
das Carry entsprechend zu setzen. Es er- 
folgt ein Return mit gesetztem Carry, wenn 
der Akku keine ASCIl-Hexzahl enthält. 


GLOBALS (Z. 642-694): Hier stehen 
zahlreiche Variablen, von denen die mei- 
sten in diesem Teil 1 noch überhaupt kei- 
ne Funktion haben. Diese Annäufung hat 
zwei Gründe: 

a) Damit man die Variablen bei der Initiali- 
sierung des Programms alle auf einmal 
löschen kann, sollten Sie in einem zusam- 
menhängenden Speicherbereich stehen. 
b) Wenn dieser Speicherbereich wie etwa 
die Tabelle CMDS am Ende des Pro- 
gramms steht, verschiebt er sich bei den 
nächsten Erweiterungen laufend nach 
„oben“. Für eine Tabelle wie CMDS ist 
das unerheblich, für Variablen wird der 
„Entwanzungs“ prozeß damit erheblich er- 
schwert, wenn z.B. CMDIDX plötzlich an 
einer ganz anderen Speicherstelle sitzt. 


Erwähnenswert ist vielleicht noch die Zeile 
694: Hier wird dafür gesorgt, daß die fol- 
genden Speicheradressen konstant blei- 
ben. Man kann zwischen den Labels GLO- 
BAL und LGLBL bis zu 10 weitere Bytes 
einbauen oder eine beliebige Anzahl her- 
auskürzen, ohne daß sich die Speichera- 
dressen der nachfolgenden Routinen da- 
bei ändern. 

Hinter den Variablen stehen noch diverse 
Fehlermeldungen, die ebenfalls bereits 
vollständig sind, damit wir sie nicht jedes- 
mal zusammen mit den späteren Erweite- 
rungen erneut auflisten müssen. 
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4. ED.DISKIO 


4.1. Allgemeine Beschreibung 


ED.DISKIO enthält alle betriebssystem- 
spezifischen Definitionen und Routinen 
zum Lesen und Beschreiben einer (RAM-) 
Disk. Durch diese Zusammenfassung Ist 
das gesamte restliche Programm ein- 
schließlich der PRINT-Routinen theore- 
tisch unter jedem Apple-Betriebssystem 
(DOS 3.3, ProDOS, UCSD-Pascal und 
CP/M) lauffähig. Da der Disk-Editor jedoch 
speziell für ProODOS gedacht ist, sind keine 
DISKIO-Routinen für die anderen Be- 
triebssysteme vorgesehen. 


4.2. Problemstellungen 


Das Abhängen des BÄSIC.SYSTEM ist auf 
jeden Fall notwendig: ein Ctri-D liefert 
sonst anstelle eines DELETE in der Kom- 
mandozeile einen SYNTAX ERROR, weil 
das BASIC.SYSTEM danach ein DOS- 
Kommando erwartet. 

READ BLOCK und WRITE BLOCK sind 
zusammen mit dem MLI überhaupt kein 
Problem, weil die entsprechenden Befehle 
„user“-zugänglich implementiert sind. 
Wesentlich schwieriger gestaltet sich das 
Lesen des ersten Blocks eines Files: 
ProDOS liefert nach einem OPEN und ei- 
nem ersten READ den ersten Datenblock 
des betreffenden Files. Der eventuell vor- 
handene Indexblock bleibt dem Benutzer 
verborgen, denn ein Befehl „liefere Index- 
block, wenn vorhanden“ ist nicht imple- 
mentiert. Aus diesem Grunde ist die Lö- 
sung zwangsläufig etwas unsauber ausge- 
fallen. 

Zuerst die einfachere Lösung: Der reser- 
vierte Dateipuffer von $0400 Byte wird von 
ProDOS in zwei Hälften geteilt: $0200 
Bytes für Daten und $0200 Bytes für den 
Indexblock. Falls die Datei den Storage 
Type 1 hat, bleibt dieser Indexteil leer, 
während für eine Datei mit Storage Type 3 
der „momentane“ Indexblock eingeladen 
wird. Es wäre nun sehr einfach, vom Pro- 
DOS-Dateipuffer aus den Indexteil in den 
Arbeitspuffer zu kopieren — dieser Weg 
liefert aber auch für einen File mit Storage 
Type 3 den ersten Indexblock und nicht 
den Masterblock zurück. 

Deshalb folgt hier die kompliziertere Lö- 
sung: Innerhalb des angegebenen Path- 
name wird nicht der File selber, sondern 
das Directory, in dem der File als Eintrag 
steht, gesucht. Dieses Directory wird via 
OPEN und READ gelesen; der Suchpro- 
zeß nach dem Filenamen findet innerhalb 
von ED.DISKIO statt. Die Struktur der Di- 
rectory-Einträge ist bekannt und von Apple 
dokumentiert - im Gegensatz zur internen 
Benutzung der ProDOS-Dateipuffer. 
Wenn der File im Directory gefunden wur- 
de, wird aus dem File-Eintrag die Nummer 
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des ersten Blocks herausgeholt, und die- 
ser Block wird dann via READ BLOCK in 
den Arbeitspuffer gelesen. 


4.3. Ausgewählte Routinen 


MAXBUF legt die Größe eines Sektors 
(Blocks) auf der zu bearbeitenden Diskette 
und gleichzeitig die Größe des Arbeitspuf- 
fers fest. MAXBUF hat für ProDOS-Disket- 
ten den Wert 02 ($0200 Byte pro Block). 


DISCONN (Z. 9-14) ist die Routine zum 
Abhängen des BASIC.SYSTEMs. Hier 
werden einfach die Vektoren, zu denen 
das BASIC.SYSTEM die Ein/Ausgabe Iei- 
tet, nachdem auf „DOS-Befehl“ überprüft 
wurde, direkt in die Speicherstellen auf der 
Zeropage eingesetzt. Als Folge davon 
hängt das BASIC.SYSTEM danach nicht 
mehr „dazwischen“. 

DOSCONN (Z. 16-23) ist das Gegenstück 
zu DISCONN: das BASIC.SYSTEM wird 
wieder „eingeklinkt“. Die Vektoren von 
der Zeropage werden dabei in die Global 
Page zurückkopiert, denn sie könnten 
durch ein zwischenzeitliches „PR# 3“ 
verändert worden sein. 


EXIT (2.25) ist das Ende von EDIT, das 
sich unter ProDOS recht einfach gestaltet: 
die Funktion „Q“uit springt hierher, und es 
erfolgt ein Kaltstart des BASIC.SYSTEM 
(Warmstart von Applesoft) über einen der 
Page-3-Vektoren. Dieses Verfahren ist un- 
ter DOS 3.3 exakt dasselbe. 


READ BLOCK/PREFIX (Z. 31-35) ist syn- 
taxmäßig innerhalb von EDIT exakt dassel- 
be wie WRITE BLOCK/PREFIX. Deshalb 
beschränkt sich die Ausführung auf das 
Setzen eines Flags und einen Sprung zu 
WRITE, 


WRITE BLOCK/PREFIX (Z. 41-240): Das 
nächste Zeichen in CMDSTR wird über- 
prüft. Wenn es sich dabei nicht um ein „P" 
handelt, folgt ein Sprung zu R/WBLOCK. 
Ansonsten muß das Kommando „RP“ 
oder „WP“ sein, also READ oder WRITE 
PREFIX. Wenn hier das nächste Zeichen in 
CMDSTR ein „/" ist, muß es sich um 
einen folgenden Pathname handeln, an- 
dernfalls um eine Angabe im Format „X,Y“ 
für Slot und Drive. 

SUNIT (Z. 52..) wertet Slot und Drive ent- 
sprechend aus und berechnet daraus die 
Unitnummer für ProDOS. 

SETINFO (Z. 79...) trägt Slot und Drive in 
den String für PRINFO ein und endet mit 
einem Sprung zu PRINFO, wo die neue 
Information ausgedruckt wird. 

SPREFIX (Z. 96...) holt den Volume-Na- 
men via GETPATH aus CMDSTR und führt 
damit ein SET PREFIX durch. Die Unit- 
nummer der zuletzt benutzten Unit auf der 


System Global Page („last recently used 
unit“) wird in Slot und Drive zerlegt. 
SPREFIX endet mit einem Sprung zu 
SETINFO und damit mit dem Ausdrucken 
des gefundenen Slot und Drive. 


GETPATH (Z. 141-151) kopiert den Path 
aus CMDSTR unter Benutzung von 
GNCHAR nach PATH. Der Speicherbe- 
reich PATH wird von verschiedenen Stel- 
len innerhalb von ED.DISKIO für den Path- 
name für MLI-Kommandos benutzt. In 
GETPATH wird auch gleichzeitig noch die 
Position des zuletzt gefundenen „/“ fest- 
gehalten (Speicherstelle LNAME). Diese 
Information wird jedoch von SPREFIX 
ignoriert, denn sie ist nur für die „S/Volna- 
me/Filename“ -Funktion von Interesse. 
GNCHAR (Z. 153-159) holt das nächste 
Zeichen aus CMDSTR und returnt mit ge- 
setztem Z-Flag („EQ”), wenn CMDSTR zu 
Ende ist oder es sich bei diesem Zeichen 
um ein <Space> oder um ein „!" handelt. 
Diese beiden Zeichen werden als „Path- 
name-Ende“ interpretiert, denn sie sind in 
Filenamen unter ProDOS ohnehin nicht 
zugelassen. 


RWBLOCK (Z. 163-240) testet als erstes, 
ob hinter dem „R“ oder „W" noch ein 
Argument folgt. Dieses Argument kann 
entweder ein „+", ein „-" oder die Num- 
mer des betreffenden Blocks sein. 

READ ändert dabei immer die Blocknum- 
mer von WRITE mit, WRITE ändert nur die 
WRITE-Blocknummer! 

Die neue(n) Blocknummer({n) werden via 
PRINFO angezeigt (Z. 202). Danach folgt 
entweder ein WRITE des Arbeitspuffers 
oder ein READ des entsprechenden 
Blocks in den Arbeitspuffer hinein. Nach 
einem READ wird der neue Inhalt des 
Puffers über DUMP (s. nächster Teil) auf 
dem Bildschirm angezeigt. RWBLOCK ist 
damit beendet. 


SFILENAME (Z. 248-363) setzt als erstes 
(intern) READ - die Blocknummer des ge- 
fundenen Blocks wird am Ende angezeigt 
und soll sowohl die READ- als auch die 
WRITE-Blocknummer sowie die entspre- 
chenden Slot- und Drivenummern setzen. 
Wenn der angegebene Path mit einem „/" 
beginnt, wird der (eventuell durch „RP“ 
gesetzte) interne Path überschrieben, an- 
sonsten wird dieser Path mit einbezogen. 
Ist kein interner Path gesetzt, verabschie- 
det sich SFILENAME mit „No Prefix?“ 

Der angegebene Pathname wird mittels 
GETPATH kopiert, wobei der Index zum 
letzten „/" festgehalten wird. Der erste 
Teil des Pathname (also der Teil vor dem 
letzten „/”) wird als PATH gesetzt, der 
zweite Teil landet im Speicherbereich 
FNAME, wobei hier jeweils das Bit 7 der 
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ASCII-Zeichen ausgeblendet werden 
muß, denn ProDOS speichert die Filena- 
men mit „MSB off" im Directory. 

Wenn innerhalb des angegebenen Path 
der letzte „/“ auf der ersten Stelle steht, 
haben wir nur einen einzigen Filenamen. 
In diesem Fall wird die Volume Directory 
geladen (Z. 262 und 278 ff). 


BADFNAME (Z. 285-291) wird andge- 
sprungen, wenn ein MLI-Fehler aufgetre- 
ten ist oder ein ungültiger Pathname ange- 
geben wurde, Die Meldung „Illegal Path- 
name/Volume/File not found“ wird ausge- 
geben. 

SETDIR (Z. 299-315) führt ein GET FILE 
INFO durch, um zu verifizieren, daß es 
sich beim „letzten Directory vor dem File“ 
wirklich um ein Directory handelt, und liest 
danach den ersten Block dieses Directory 
über OPEN und READ des MLI ein, Der 
erste Eintrag in diesem ersten Block ent- 
hält die Länge der jeweiligen File-Einträge 
(ELEN) und die Anzahl der File-Einträge 
pro Directory-Block (ECOUNT). 
NXTBLOCK (Z. 317-343) sucht diesen 
Block nach dem Filenamen ab und springt 
zu GOTFILE, wenn der File-Eintrag gefun- 
den wurde. 

BLOCKEND (7. 345-350) lädt den näch- 
sten Directory-Block. Falls das Directory 
zu Ende ist, meldet das MLI den Fehler 
„EOF encountered“. Damit ist die Suche 
beendet, und es folgt ein Sprung zu 
BADFNAME, ansonsten geht es weiter mit 
NXTBLOCK. 


GOTFILE (Z. 352-357) holt aus dem ge- 
tundenen File-Eintrag die Nummer des er- 
sten Blocks heraus (Bytes $11 und $12 
des File-Eintrags). 

GOTVDIR (Z. 358-363) ist der Einsprung 
zum Lesen des Volume-Directory: Hier ist 
die Blocknummer bereits bekannt 
(50002). Sie wird in RBLOCK und 
WBLOCK gesetzt. GETUNIT berechnet 
aus der Unitnummer Slot und Drive und 
setzt sie für PRINFO, Danach folgt ein 
Sprung zu DORW - hier wird der entspre- 
chende Block in den Arbeitspuffer gelesen 
und das INFO neu gedruckt. 


Die Zeilen 371-405 enthalten die entspre- 
chenden MLI-Aufrufe für GET FILE INFO, 
OPEN und READ der Directory. 


PRINFO (Z. 409-444) steht ebenfalls in 
ED.DISKIO: Da je nach (softwaremäßi- 
gem) Format der Zieldiskette entweder mit 
Blocknummern (ProDOS), Tracks/Re- 
cords (CP/M) oder mit Tracks und Sekto- 
ren (DOS 3.3) gearbeitet wird, ist das For- 
mat der Anzeige ebenfalls leicht unter- 
schiedlich. PRINFO druckt vier Leerzei- 
chen, wenn der Ausdruck auf den Bild- 
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schirm geht, für einen Ausdruck auf den 
Drucker werden diese Leerzeichen weg- 
gelassen. Die Länge des INFO selber ist 
so abgestimmt, daß bei 40 Z/Z zwei unter- 
einanderstehende Zeilen gedruckt wer- 
den; bei 80 Z/Z ist es nur eine Zeile. 
Dementsprechend wird vorher VTAB 2 
(40Z) oder VTAB 3 (80Z) gesetzt. 


5. ED.FUNCS1 
9.1. Allgemeine Beschreibung 


ED.FUNCSI (und ED.FUNCS2) enthalten 
die nicht-betriebssystem-spezifischen 
Funktionen von EDIT, wie z.B. Bytes än- 
dern, darstellen, suchen, vergleichen usw. 
In dieser ersten Ausbaustufe von EDIT 
sind nur zwei Funktionen definiert: 

X — Aufruf des Monitors und Anhängen 
des BASIC.SYSTEM 

Q - Ende von EDIT. 


5.2. Problemstellungen 


Innerhalb des Monitors kann man alles 
Mögliche anstellen — von einem einfachen 
LIST des Puffer-Inhaltes über ein CATA- 
LOG der Ziel-Diskette bis hin zu einem 
RESET. Aus diesem Grund muß auf jeden 
Fall die Returnadresse innerhalb des 
Command Interpreters von EDIT sicher 
zwischengespeichert werden. Des weite- 
ren wird mit absoluter Sicherheit der Bild- 
schirmaufbau von EDIT demoliert — nach 
einem Return aus dem Monitor muß der 
Bildschirm neu gedruckt werden. 


5.3. Ausgewählte Routinen 


XMON (Z. 6-48) speichert zuerst die 
EDIT-interne Returnadresse, kopiert da- 
nach CMDSTR auf einen sicheren Platz 
(CMDSTR befindet sich ab $0200 im nor- 
malen Input-Buffer) und setzt danach die 
Otrl-Y-Funktion des Monitors auf 
MONRTS. Nach Anhängen des BASIC- 
‚SYSTEM via DOSCONN wird in den Mo- 
nitor gesprungen. 

MONRTS wird vom Monitor her durch die 
Ctrl-Y-Funktion her angesprungen. Hier 
wird das BASIC.SYSTEM wieder abge- 
hängt, CMDSTR wieder nach $0200 ko- 
piert und die interne Returnadresse wieder 
auf den Stack gebracht. 

Es folgt REPRINT: TITLE wird aufgerufen. 
Hier wird der Schirm gelöscht, „PRODOS 
SECTOR EDITOR...“ und zwei Zeilen mit 
„----" geschrieben. PRINFO druckt da- 
nach: „source: Slot X,DeY..geaus. SET- 
DUMP ist momentan ein RTS und wird 
später den Puffer-Inhalt neu ausdrucken. 
Das letzte, was uns jetzt noch fehlt, ist die 
Kommandozeile. Sie muß natürlich eben- 
falls neu gedruckt werden, und zwar voll- 
ständig. 


RTYP2 - normalerweise benutzt, um den 
Cursor nach einem INSERT oder DELETE 
beim Eintippen der Kommandozeile wie- 
der auf die richtige Stelle zu bringen — 
druckt jetzt den ersten Teil von CMDSTR, 
der bereits abgearbeitet ist (also links vom 
Cursor). Danach springt das Programm zu 
RETYPE, wo zuerst der rechte (noch nicht 
abgearbeitete) Teil von CMDSTR neu ge- 
druckt wird, danach noch einmal der linke 
Teil: Damit steht sogar der Cursor wieder 
an der richtigen Stelle. 

QUIT (Z. 56-58) sollte selbsterklärend 
sein. 


6. ED.FUNCS2 und ED.CMDS 


ED.FUNCS2 enthält momentan nur die 
nicht definierten Routinen SETDUMP und 
DUMP, die beide mit einem RTS enden. 
Die Funktion GETVAR endet mit einem 
Sprung zu CMDERR - die Benutzung von 
Variablen anstelle von Argumenten ist 
ebenfalls noch nicht definiert. 


ED.CMDS umfaßt die Tabelle CMDS mit 
den Kommando-Zeichen und jeweils fol- 
genden Startadressen sowie Definitionen 
der verschiedenen von EDIT belegten Puf- 
ferbereiche, von denen in dieser Ausbau- 
stufe die meisten noch nicht verwendet 
werden. 

Die Startadresse des Arbeitspuffers sollte 
wegen der Erweiterungen unverändert 
bleiben und ist deshalb gleich auf $2000 
gesetzt. An dieser Stelle wird EDIT im 
„Vollausbau“ enden. 


Hinweis: 


Es folgen noch die Teile 2 
und 3 dieses dreiteiligen Bei- 
trages. Im Teil 2 wird u.a. 
auch die komplette Befehls- 


syntax vorgestellt, so daß Sie 
mit der Benutzung des Edi- 
tors noch bis zum nächsten 
Peeker-Heft warten sollten. 
Die Ssammeldisk # 17 enthält 
den kompletten Quellcode, 
die Disk # 18 den komplet- 
ten Objektcode. 
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Speichererweiterungskarten 
Jür Apple Ile und IIc von 256k bis 1 MB 





Multiram von Checkmate Technology 
e 16bit CPU Port 
e 65816 Coprozessor lieferbar 
« für Ile bis 1 MB erweiterbar 
° für Ilc bis 512k erweiterbar 
° incl. Appleworks Memory Eexpander 
« Ramdisk Software für Pascal 1.1/ 1.2 
DOS ProDos und CP/M 
« kommt in Auxiliary Slot (3) 
. ersetzt erweiterte 80 Zeichen Karte 





Ramworks von Applied Engineering 


incl. Appleworks Expander 

» Ramdisk Software für DOS/Prodos incl. 

+ Treibersoftware für Pascal 1.1/1.2 optional 
« Treibersoftware für CP/M 2.x optional 


Z-Ram von Applied Engineering 


« wie Ramworks aber für IIc 
+ Z80-Karte integriert 
e Jäuft mit CP/M 2.23 oder 4.0 von AE 


Ppanday®ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/3104 23 - Telex: 185859 


OTEIT nge Druckerinterfaces für Apple II+-/e/ 
Printer Interface c/lll Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


software wird über Dip-Switch ausgewählt. 


Grappler Ei Grafikfähiges Druckerinterface 
Printer Interface 


das keine Wünsche mehr offen läßt, 
Über 2 Dutzend Kommandos ermöglichen die volle Kontrolle 

über alle Möglichkeiten Ihres 

Druckers, Jetzt auch mit 

lle Features: Double Hires 

Grafics und 80 Zeichen Dump weg se 
mittels Druckerpuffer nachrüstbar Bei iEE | FE n | 
über Bufferboard. De En Mi en f 


in Besitzt alle Vorzige a Grappler +, 
hat aber zusätzlich einen integrier- 
ten 16K ir. der auf _ rn 
32 oder 64 K aufrüstbar ist. Gy 


SERIAL Serielles Druckerinterface 
Grappler speziell für den Apple Image- 
Printer Interface 


writer. 
Ilorımk 
ie Hotlink, jedoch atzlich 
KRRAPPLER Ü Imagewriter Emulation und Grafik 


Software-Diskeltte. 


panday®ft:... :-- 


Seriell-nach-Parallel-Wandler für 
den IIc im Kabel integriert, 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 


Telefon: 0 30/31 04 23: Telex: 185859 
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Pascal Compiler für Apple II (+,e,c) 


+ erzeugt 6502 Assembler-Code 
schneller als Turbo Pascal 

+ benötigt keine Z-80 Karte 

+ Jäuft unter Prodos 

° integrierter Assembler 

e inclusive Editor (full screen) 

+ mehrfach in Peeker getestet 


sofort ab Lager lieferbar (Vers.1.2) 


Einführungspreis : DM 139,90 


Update auf Vers. 2.0 : DM 48,- 


Panday®&ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr | 
Telefon: 0 30/31 04 23 - Telex: 185 859 





und die 
Hardware ... 
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Software ... 
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Bücher ... 


“Fordern Sie unseren erg er 
ALLES FÜR DEN APPLE Il+, Ile, IIc UND MACINTOSH 


Panday@ftı... Ä 


Uhlandstraße 195 - D-1000 Berlin 12 
Tel.: 030/31 04 23 - Telex 185 859 
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ED.FRAME.TXT 

BB0B: 1 
BBB8: 2 
BD8B: 3 
BBBB: 4 
BBRB: 5 
HE 6 
899: 1 
88: 8 
P908: 9 
BB: 10 
BB00: 1l 
BBAB: 12 
Bsp: 13 
BB: 14 
BB: 15 
B999: 16 
BB‘: 1% 
BBBB: 18 
BBBB: 19 
BoBR: 20 
BBBB: an) 
BBBB: 22 
B808: 23 
ABAl: 24 
Hllofı 25 
= NEXT OB FILE 
893 26 
893: DT. 
BeB3:20 OF dB 28 
B806:A2 FF 29 
B888:9A 3d 
B809:20 2F dB 31 
BBÖC:ACc 44 9 32 
BSHF 33 
Asoör 34 
D8pr: 35 
ASAF:A9 28 36 
AB11l:8D 1A dB 37 
B814:A2 O6 38 
BB16:8A 39 
0817:A8 49 
B818:9D 28 208 41 
B81B: E8 42 
BSIC:DB FA 43 
B8lE:EE 1A d8 44 
0821:C8 45 
d822:C8 92 46 
#824:98 F2 47 
Ö826:A2 31 48 
0828:9D 94 d6C 49 
BB2B:CA 59 
d82C:DB FA 51 
BB2E:6P 52 
B82F 53 
A82F 54 
B82F:20 7D OD 55 
B832:A9 28 56 
#834:8D 97 dc 57 
#837:A9 FF 58 
0839:8D SA dc 59 
H83C:A9 GB 60 
B83E:8D AB B2 61 
B841:AE B3 FB 62 
B844:EB #8 63 
B846:96 9 64 
A848:AE 83 FD 65 
d8AB:EB FF 66 
A8AD:Fp 92 67 
BBAF:AQ FF 68 
d851:8D 98 ÖC 69 
9854 TB 
B854:2B sp ds 7 
B857:8D 94 BC 72 
B85A:20 SD 88 73 
B85D:4D 94 dc 74 
B860:D8 45 75 
Ö862:8D 98 dc 76 
d865:8D SA ÖC 77 
B868:85 36 78 
BEA: AA 79 
B86B:A9 58 80 
B86D:8D 97 dc 81 
d870:A9 03 82 
0872:85 37 83 
0874:AD 85 C3 84 
#877:49 38 85 
0879:D$ 11 86 


SBTL 'DISK EDITOR! 
PTR: EQU $00 ;diverse Zwecke 
* 
CH: EQU $24 Cursor horizontal 
CY: EQU $25 ;Cursor vertikal 


INVFLAG: EQU $32 
COUTV: EQU $36 


Iurı COM: 
;‚O/I-Vektoren 


* 

CMDSTR: EQU $200 
PATH: EQU $2Ag 
YVEC: EQU $3F9 

* 

KEYBOARD: EQU $C000 
KBSTROBE: EQU $C010 


;Buffer für Commands 
‚interner Pathname 
;Ctrl-Y Funktion 


* 
BELL: 


EQU $FF3A 
VCALC: EQU $FC22 
GETKEY: EQU $FDOC 


;Piep! 
;Cursorpositionierung 
‚Input 1 Zeichen 


COUT: EQU $FDED ;‚FRINT Zeichen 
MONITOR: EQU $FF69 ;Monitor-Einsprung 
* 

MSB ON 
* 
STOP: EQU I! ;Kommando-Trennung 


* 


NAME IS EDITI 
ORG $8ß3 


* 


START: JSR INIT 
RESTART: LDX #$FF 


* 


TXS 


JSR INSTALL 
JMP GETLINE 


‚clear BUFFER&PLAGS 


‚Stackpointer setzen 
‚uUct/lilc, 88 2 


FEREERKEEFFRFH REF 


* 
INTT. 


CLRBUF: 


LDA #<BUFFER 
STA CLRBEUF+Z 


LDX 
TXA 
TAY 


STA BUFFER,X 


INX 
BNE 


INC CLRBUF+Z 


INY 


CPY #MAXBUF 


BCC 


2 


CLRBEUF 


CLRBUF 


‚Adresse hi 


:Ziel+$108 


LDX #LGLBL-GLOBALS-1 
NOFLAGS: STA GLOBALS,X 


DEX :GLOBALS auf 99 
BNE NOÜFLAGS 
BL, 
* 
* 
INSTALL: JSR DISCONN ;DOS/BASIC.SYSTEM ab 
LDA #49 ä 
STA HMAX ;Annahme: 48 Zeichen 
LDA #$FF 
STA IS49 ‚Flag für HOME etc, 
LDA #9 
STA PATH ;interner Path auf '!"" 
LDX $FBB3 
CPX #$98 ‚Test: IIe / IIo? 
BCC STCASE ;hat Lowercase 
LDX $FD83 
CPX #$FF ;modifizierter II+? 
BEOQ STCASE 
LDA #$FF ;nur UPPERCASE 
STCASE: STA SHIFTUP 
E 3 
JSR TESTS3 Test Slots 
STA TEMP 
JSR TESTS3 ‚zweiter Test 
EÖR TEMP 
BNE STARTZ ‚Read nicht konstant 
STA SHIFTUP = 90 
STA 154 ‚48 Z-Flag zurück 
STIA LOLTN s 
TAX = Bd 
LDA #$5% ;88 Zeichen 
STA HMAX 
LDA #$C03 
STA COUTV+1 ;‚ COUT auf $C309 
LDA $C0385 ;Test auf 88Col 
EOR #538 50x05: $38 
BNE INIT8® 


ABTB: 
BBTE: 
A888: 
0882: 
BB84: 
M887: 
MB8A: 
BBEC: 
ÄBSC: 
BBBF: 
:29 
#894: 
:D 
0897: 
899: 
8899: 
ABSD: 
BB9D: 
ÖBYF: 
BBAB: 
BBAZ: 
BBAA: 
BBAG: 
MBAT: 
BBAT: 
BSAT: 
BSAA: 
ÖBAB: 
ABAD: 
BSAR: 
BsBl: 
Ö8Bl: 
Ö8B4A: 
B8BT: 
Ö8B9: 
BBBC: 
ÖSBD: 
B8BD: 
BBech: 
B8C3: 
B8C4: 
BBCE: 
A8C7: 
BSCA: 
BBCC: 
BBCF: 
®8D1: 
W8D4: 
A8D5: 
B8D7: 
B8D9: 
ÖSDC: 
BBDE: 
ÖSELl: 
BSEA: 
ÖSES: 
BBES: 
ÖBEA: 
ÖSEC: 
ÖSED: 
BSED: 
A905: 
9907: 
B997: 
B997: 
B9AT: 
8997: 
B9BT: 
3997: 
B9N7: 
BIBA: 
B90D: 
AOBRF: 
A912: 
#915: 
B918: 
Ä91B: 
B91LC:; 
BYIC: 
ÖSIF: 
922: 
B924: 
9927: 
BY2A: 
B92B: 
BIRD: 
#938: 
9933: 
M935: 
B938: 
BIYZA: 


B8sl 


#895 


AD 
c9 
BO 
Ag 
8D 
8D 
D® 


BD 
FB 


E8 
FÖ 
9A 
A2 


5D 
E8 
D® 
&® 


AD 
38 
E9 
BA 
8D 


29 
20 
Ag 
8D 
8D 
8D 
8D 
69 


ACc 
CC 
Fo 
B9 
2d 
c8 
D® 
2d 
28 
Ad 
EC 
Fo 
BY 


B3 
B8 
DA 
FF 
93 
ÖF 
1B 


Sie) 
16 
ED 


F5 
BE 


B3 
nl 
0 


FA 


97 
81 
9D 
BD 


75 


DB 
9F 


97 
IT 


19 


D2 


FB 


dc 
ca 
d8 


FD 


Bo 


3 


dc 


BC 


d8 
18 


BC 


BB 
dc 


BB 
#8 


FD 


88 


dB 
BC 


FD 


CF 


dB 
BB 


dc 
BC 


ug 
BC 
dc 
02 
DA 
DB 
DB 
DC 
#2 


112 
113 
114 
15 
116 
17 
118 
119 
129 
121 
122 
123 
124 
125 
126 
127 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
176 
ia 
172 
173 
174 
175 
176 
ar 


LDA 
CMP 
BCS 
LDA 
STA 
STA 
BNE 


$FBB3 
#508 
INIT8® 
$FP 
IIEC 
SCHdrF 
STARTZ 


;MACHID für IIc/e 
nscht 1LIe/s 


‚Flag: 89C0OL IIc/e 
;IIe/c: ALTCHARSET 
‚"always" 

* 
INIT8S®B: LDA SINIT,X 
BEQ STARTZ 
JSR COUT 

INX 

BNE INITS$ 
BEQ STARTZ 


zB Berl NM 
;für VIDEX 


"always!" 
* 
SENTT: 
* 
TESTS3: 


DFB $94,$B3,08,08 ;Ctrl-Z "3" 


LDX #9 ‚Prüfung auf 


TXA 
EOR $C380,X 
INX 

BNE TSTS31 
RTS 


TSTS3l: 


* 
* 
STARTZ: LDA HMAX 
SEC 

SBC #+B1 
ASL A 


STA MAXCMD 


JSR 
JSR 
LDA 
STA 
RTS 


TITLE 
PRINFO 
+2 
CMDEND 


TITLE: JSR 
LDA 
SEC 
SBC 
LSR A 

JSR SETCH 
LDX #89 

LDA PCMID,X 
BEQ TTL2 
JSR COUT 
INX 

BNE TTL1 
LDA #4 

JSR TTL3 
LDA #21 
JSR SETVTB 
LDX HMAX 
LDA #'-' 
JSR COUT 
DEX 
BNE 
RTS 


HOME 
HMAX 


TTL1: 


TIE2: 


TTLS: 


TTL4A: 
TTL4 


* 

PGMID: ASC 'PRODOS 
IDEND: DFB ®8 

* 

* 

* 
ERRERREEREERR 


Beer 
* 
NEWCMD: JSR SETV221 


konstanten Read 
"Ton DLOot 3 


‚nax, Länge von 
:CMDSTR: 2& Zeilen 


"SECTOR EDITOR..." 
‚Source, Target sn! 


;‚Backup-CMDSTR auf "" 


:Zeichenzahl minus 
‚String-Länpe 


#IDEND-PGMID 


‚Mittenzentrierung 


;"PRODGS SECTUR 343" 
;<ßß> = Stringende 


;VTAB 4 


ii I 
4 


‚VTAB 21 


r 


SECTOR EDITOR V1,.9' 


;VTAB 22, HTAB 1 


Jsß GEEOP ‚Clear ab Cursor 
LDA =P# 
STA CMDIDX ‚=> CMDSTR = "1 
5STA CMDEND ‚=> BACKUP = "" 
STA IFLAG ;kein INSERT 
STA CAPSFLG ;kein LC-Shift 
RTS 

# 

RETYPE: LDY CMDIDX ;‚druckt CMDSTR nach 

RTYPl: GPY CMDEND ;‚DELETE oder INSERT 
BEQ RTYP2 ‚neu und setzt 
LDA CMDSTR,Y ;den Cursor 
JSR PRCHAR ‚nächstes Zeichen 
INY 
BNE RTYP1 ‚"always” 

RTYP2: JSR CLEDP 
JSR SETV221 >YIAB 22, . HTABe] 
LDY +98 

Rlirs: CPr GREDIDA ; CMDSTR zu Ende? 
BEQ RTYP4 ‚0OK- Fertig 
LDA CMDSTR,Y 
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PRodos 4 


B92D:2Bd E6 BA 178 JSR PRCHAR ‚nächstes Zeichen B9F2:8D FF ß9 268 STA CAPSFLG 
B949:C8 179 INY B9F5:4C 6B B9 269 JMP NXTCHAR 
B941:Dß F2 18% BNE RTYP3 ;"always" Ö9YF8: 270 x 
9943 :60 181 RTYP4: RTS AYFS: e7’l% 
A944: 182 * ÖSFE:20 3A FF 272 BADCHAR: JSR BELL ;Piep! 
B944: 183 eek ASFB:AC 6B 09 273 JMP NXTCHAR 
BI4A: 184 &*----GETLINE---—* BSFE: 2TA %* 
B944: 185 kr ÖSFE: 275 % 
B9AA: 185 * ÄSFE: 276 IFLAG: DS 1 ;B7 set: INSERT 
B944:20 AF OB 187 GETLINE: JSR SETV22 ;VTAB 22, HTAB 1 BIYFF: 277 CAFSFLG: DS 1 ;B7 set: UC => LC 
d947:20 0OC FD 188 GETLNZ: JSR GETKEY BABB: 278 %* 
BYAA:A9 00 189 LDA #00 BABA:AE 9E BC 279 ISCHAR: LDX CMDIDX ‚nächste freie 
B94C:8D 9E 0C 199 STA CMDIDX ‚Index in CMDSTR BAB3:EC SD GC 288 CFX MAXCMD ‚Stelle in CMDSTR 
BYAF:2O ES 0A 191 JSR PRCHAR ;Cursorpos. Videx BAQ6S:FA EE 28l BEQ BADCHAR "CNDSTR Pol 
8952:AD ge co 192 LDA KEYBOARD ;wg. 80Z-//e BABE:2C FF ß9 282 BIT CAPSFLG ; LC-Übersetzung? 
0955:09 80 193 ORA +$80 BABB:1d d6 283 BPL GOTCHAR ‚nein 
B957:C9 85 194 CMPF_ +$85 ‚Ctrl-E: ({Re)-EDIT? BABD:CS CL 284 CMP #'!A' 
8959:F0 07 195 BEQ EDLINE ;ja, stehenlassen! BABF:9B 2 285 BCC GOTCHAR 
P95B:48 196 PHA ‚nein, erstes Zeichen AA11:B9 29 286 ORA #+$29 shift nach Le 
Ö95C:20 07 09 197 JSR NEWCMD ‚löscht CMDSTR MA1l3:AE FF 89 287 GOTCHAR: LSR CAPSFLG ;immer zurück 
Ä95F:68 198 PLA BAlE:2C FE 99 288 BIT IFLAG 
B960:DO OF 199 BNE GTL1l ‚always! AA1l9:1B 1A 289 BPL APPEND ;kein INSERT 
#962: 200x MAIB:AC 9F ÖC 290 LDY CMDEND 
#962:20 53 OB 261 EDLINE SETV24 ‚eventuelle Fehler- BALE:CB 291 INY :Backup nach 
B965:28 B2 OB RR JSR CLEOL ‚meldungen löschen BAIF:CC 9D ÖC 292 GPY MAXCMD ‚INSERT zu lang? 
B968:20 AT OB 203 JSR SETV221 ;VTAB 22, HTAB 1 BA22:Fß D2 293 BEQ BADCHAÄR 
A96B: 204 * BARA:48 294 PHA ‚neues Zeichen 
BO6B: 2RB5 * BA25:88 295 INSl: DEY 
M96B:20 OC FD 286 NXTCHAR: JSR GETKEY BA26:89 BO B2 296 LDA CMDSTR,Y ;Backup-Inhalt 
BI6E:AD 00 CO 297 LDA KEYBOARD ;wg. 802-//e BA293:99 d1 #2 297 STA CMDSTR+1,Y ;um 1 nach hinten 
B971:89 8% 2B8 GTL1: ORA +$89 BA2C:CC 9E BC 298 CPY CMDIDX ;Originalstring-Ende? 
| B973:C9 AB 289 CMP #S$AD ;kleiner <Space>? SA2F:DB FA 299 BNE INS 
B975:90 93 218 BCC TSCTBL BASL:EE 9F SC 3099 INC CMDEND ;Backup-Länge+l 
B977:aC BB HA 211 JMP ISCHAR ;druckbares Zeichen BA34:68 391 PLA 
BITA: 212 x BAZS: 302 * 
B97A:AE FE 89 213 ISCTRL: LSR IFLAG ‚alle Controls BA35:9D BA B2 303 APPEND: STA CMDSTR,X ;+ neues Zeichen 
ß97D:4E FF 89 214 LSR CAPSFLG ‚löschen die Flags BAZS:EE SE BC 394 ING CMDIDX 
#980: 215 * BASB:EC SF BC 385 CPX CMDEND ;Backup länger? 
B980:C9 84 216 TSTDEL: CMP #984 ;Ctrl-D: DELETE? BASE:9D 93 3A6 BCC APP2 
#982:DB IF 2 BNE TSTBS BAAD:EE 9F SC 397 INC CMDEND ‚Nein, auch verlängern 
B984:AC 9E BC 218 LDY CMDIDX ;beide Strings BAA43:20 EG BA 308 APP2: JSR PRCHAR ‚neues Zeichen drucken 
B987:CC 9E BC 219 CPY CMDEND ‚gleich lang? BAA56:2C FE 99 399 BIT IFLAG ‚bei INSERT 
B9BA:FÖ DF 220 BEQ NXTCHAR ;=> kein DELETE BA49:10 93 319 BPL APP3 ;wird auch Backup 
#98C:B9 1 d2 221 DELI: LDA CMDSTR+l,Y ;sonst wird das BAAB:2B IC 89 311 JSR RETYPE ;neu gedruckt 
B98F:99 BB B2  ARR STA CMDSTR,Y ;Backup um ein DAAE:AC 6C B9 312 APP3: JMP NXTCHAR 
B992:CC SF ÖC 223 CPY CHDEND ‚Zeichen verkürzt BAS1: 3l3 %* 
#995:Fd 83 224 BEQ DEL2 ;danach RETYPE BAS1: 316 ee arrrr 
5997:C8 225 INY AAS1: 317 *---GOTLINE/NXTCMD-——* 
#998:DB F2 226 BNE DELLl BA51: 318 eek 
ASYA:CE 9F BC 227 DEL2: DEC CMDEND ;:Gesamtlänge minus 1 BASL: 319 * 
A99D:2d 1C d9 228 JSR RETYPE BA5L:AY9 9 32ß GOTLINE: LDA #99 
B9AO:AC 6B 09 229 JMP NXTCHAR BABSS:AE 9E BC 32] LDX CMDIDX 
B9YAS: 230 x BA56:9D BR d2 322 STA CMDSTR,X ;<®ß>: Letztes Zeichen 
B9AZ3:CY9 88 231 TSTBS: CMP +#$88 ; BACKSPACH? BAS9: 323 * 
ß9A5:DB GE 232 BNE TSTINS WA5S9:8E SF GC 324 STX CMDEND ‚für REPRINT 
B9AT7:AE 9E BC 233 LDX CMDIDX BASC:SD 9E BC 325 STA CMDIDX ;:CMDIDX = 66 
Ä9QAA:FB BF 234 BEG NXTCHAR ;CMDSTR = "" BASE: 326 * 
BSAC:RB ED FD 235 JSR COUT ‚Cursor nach links BASF:AD PB Cd 327 NXTCMD: LDA KEYBOARD ;Ctrl-C (STOP)? 
| BSAF:CE 9E BC 236 DEC CMDIDX ‚Index nach links aA62:1d 97 528 BPL NXTB 
| A9B2:AC 6B B9 237 JMP NXTCHAR BA6A:BED 1B Ch 329 STA KBSTROBE 
B9B5: 238 * BA67:C9 83 330 CMP #$83 
M9B5:C9 89 239 TSTINS: CMP #$89 ‚Gtrl-I: INSERT? PA69S:FB GE Söl BEQ NXTEND ;JMP zu GETLINE 
#9B7:D6 BD 240 BNE TSTER BA6B:2B AF BOB 332 NXTB: JSR SETV22 
BSB9:AB 9F BC 241 LDX CMDEND ;beide Strings BAGE:AE 9E PC 333 LDX CMDIDX ‚nächster Command 
B9BC:EC 9E ÖC 242 CPX CMDIDX ‚gleich lang? BATI:ER 9E BC 334 ING CMDIDX 
DOBF:FB AA 243 BEQ NXTCHAR  ;=> kein INSERT |  dara:BD BO 62 335 LDA CMDSTR,X 
Ä9C1:8D FE 89 244 STA IFLAG ‚sonst IFLAG setzen BA77:DO 83 3356 BNE NXTI 
B9C4:Dß A5 2AS BNE NXTCHAR ‚"always" BA79:4C AA B9 337 NXTEND: JMP GETLINE ;CMDSTR zuende 
BIC6: RAS %* BA7C:2D DF BA 338 NXTl: JSR SETUC ‚Shift nach UC 
P9C6:C9 8D 247 TSTCR: CMP #$8D ;<CR>? BATF:CQ Al 339 CMP #5TOP ;lserer Command? 
B9C8:DB 96 248 BNE TSTCU BABL:FO DC 34 BEQ NXTCMD 
BSCA:28 9C BB 249 JSR CLEOP BASSE:CYH AB 341 CMP #$A9 ;Space” 
ASCD:AC 51 AA 250 JMP GOTLINE ;*** ZEILE BEENDET BAB5:FO DB 542 BEQ NXTCMD 
BSDO: 2bl * BA87: 343 * 
B9D0:C9 95 252 TSTCU: CMP #$95 ;RECHTSPFEIL? BA8T:AB GB 344 LDY +89 
#9D2:DA 8D 253 BNE TSTCX BABS:D9 5D 11 345 GETCMD: CMP CMDS,Y :Vergleich des 
M9D4A:AE 9E BC 254 LDX CMDIDX ;Backup > CMDSTR? BABC:FO BA 546 BEQ GOTCNMD ‚Zeichens mit CMDS 
BSD7T:EC SF BC 255 CPX CMDEND BASE:CB 347 INY 
ÖSDA:FB SF 256 BEQ NATCHAR ‚nein PASF:CB 348 INY 
B9DC:BD BB B2 257 LDA CMDSTR,X ;sonst ein Zeichen BAIG:CB 349 INY 
ASDF:DÄ 32 258 BNE GOTCHAR ;Zeichen vom Backup BA9L:CD BF 350 CPY #LCMD ;Tabellenende? 
ÖSEL: 259 * BA93:99 FA 309 BCC GETCMD 
Ö9E1:C9 98 260 TSTCX: CMP #$98 Ctel X DA95:AC AA BA 352 JMP CMDERR ;"Command Error!" 
A9E3:DB 6 26l BNE TSTESC BASB: 53535 * 
B9ES:2B 87 993 262 JSR NEWCMD ‚alles neu BAY8E:B9 5E 11 354 GOTCMD: LDA CMDS+1,Y ;Startadresse low 
B9EB:AC 6B BI 263 JMP NXTCHAR ;macht der Mai. BASB:SD A5 PA 355 5STA DOCMD+L 
ÖGYEB: 264 * MASE:B9 BF 11 356 LDA CMDS+2,Y ;hi 
B9EB:C9 9B 265 TSTESG: CMP #59B ‚<ESC>? MAAL:8D AG BA 357 STA DOCMD+Z2 
SED:DB #9 266 BNE BADCHAR BAAA:20 dB OB 358 DOCMD: JSR $B00R ;Modifiziert!) 
ÖIEF:AD FF ß9 267 EOR CAPSFLG :UC <=> L6 BAAT:AC 5F BA 359 JMP NXTCMD 
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BAAR: 
BAAA: 
BAAR: 
BAAC: 
DAAF: 
BAB2: 
BABS: 
BABT: 
BABA: 
BABC: 
BABF: 
BAC2: 
:D® 
DACS: 
BACT: 
BACB: 
BACB: 
BACB: 
BACH: 
BADB: 
BADS: 
BADE: 
BADB: 
BADB: 
BADC: 
BADE: 
BADF: 
BADF: 
BADF: 
BADF: 
BADF: 
BADF: 
MADF: 
BADF: 
BADF: 
:98 
BARS: 
60 
QAEBS: 
BAEG: 
BAES: 
QAEB: 
BAED: 
BARF: 
BAFl: 
DAFR: 
BAFA: 
BAF6: 
DAFT: 
BAFA: 
BAFD: 
BAFP: 


BACS 


BAEL 


BAES 


BBO1 


Ad 


11) 


8E 9E BC 


29 
29 
A2 
EC 
F® 
BD 
20 
E8 


A2 
9A 
ac 


29 
A9 
28 
B9 
Fp 
20 
c8 
Dp 
69 


9 


23 


2C 
18 
9 
09 
3Ö 
48 
a9 
85 
68 
20 
zC 
18 
B9 


:20 
MBB4: 
ÖBdB: 
BBB8: 
BBB9: 
BBB9: 
BBAC: 
MBÖP: 
ÖB1l: 
AB1l4: 
AB1l6: 
BB19: 
AB19: 
ABIC: 
ABIlD: 
BBlB: 
BBIF: 
BB2B: 
SB21: 
BB22: 
BB25:; 
MB26: 
BB2B: 
ÖBRA: 
ÖB2C: 
BB2E: 
BB3PB: 
MB33: 
WB33: 
ßB35: 
MB36: 
AB3T: 
BB39: 
ÖB3B: 
ÖB3D: 
ÖB3F: 
BB4A2: 
ÖB43: 


Ag 
85 
6% 


29 
20 
a9 
29 
Ag 
ac 


9 


Bß 
A9 
29 
68 
88 


F2 
FF 


47 
eß) 


ED 
D® 
B6 
E6 


Es 


El 


DPF 


98 
BF 
8B 
El 
99 


sr 
32 


DF 
9A 
B2 
8p 
ED 
FF 


26 
16 
AD 
ED 


ED 


1D 


26 


ÖF 
BB 
BA 
82 
d6 
ED 


D8 


BA 
Bl 
02 
AE 
ED 


DA 
BB 


BC 


d2 
DA 


B9 
BB 


FD 
Bc 


DA 


BC 


BA 
dc 


FD 


dB 
BB 


FD 
FD 


dB 


BB 


FD 


FD 


36ß 
361 
362 
365 
364 
365 
366 
367 


368 
369 
378 
371 
372 
375 
374 
375 
376 
all 
378 
379 
38B 
381 
382 
383 
384 
385 
386 
387 
388 
389 
398 
391 
392 
393 
394 
395 
396 
397 
398 
399 
499 
ABl 
482 
483 
a4 
495 
a6 
487 
408 
ad9 
418 
all 
412 
413 
414 
415 
416 
AlT 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
436 
431 
432 
433 
434 
435 
436 
437 
438 
439 
449 
441 
442 
443 
444 
445 
446 
447 
448 
449 


* 
* 

CMDERR: LDY #ERRCMD-ERRMSGS ; Index 
DSPERR: STX CMDIDX ;Fehler ist hier.., 


JSR PRTERR 
JSR SETVAR1 :VTAB 22, HTAB 1 
LDX #99 
DSERRl: CPX CMDIDX ;Reprint von CMDSTR: 
BEQ DSERR2 ‚der Cursor bleibt 
LDA CMDSTR,X ;auf dem falschen 
JSR PRCHAR ;Command stehen 
INX 
BNE DSERRl 
DSERR2: LDX #9PFF ;Stack zurück 
TXS 
JMP GETLNZ ;GETLINE ohne VTAB 22 
* 
PRTERR: JSR SETV24 ;VTAB 24 
LDA #$87 ;BELL 
JSR COUT 
PRERRl: LDA ERRMSGS,Y 
BEQ PRERR2 :<ß0> = Textende 
JSR PRCHAR 
INY 
BNE PRERR1 
PRERR2: RTS 
E 3 
* 
* 


De ne re en De 22 22 22227 
#--PRINT-ROUTINEN-—.* 
Eee 
* 
* 
SETUC: CMP #'a' 

BCC UCSET 

AND #$DF 
UGSET: RTS 
* 
PRCHAR: BIT SHIFTUP 


‚Shift nach UC 


‚nur Uppercase? 


BNE PRBl 

RTS 
* 
rk 
#---CURSORPOSITIONIERUNG -———* 
BEZ 2 2 2 22 22 2 2 20 2 2 2 2 22 2 22 2 2 222 20 
* 
SETVAZL: JSR SETV22 

LDA #$Aß 

JMP COUT 


;VTAB 22, 


* 

SETV22: LDA #22 
BNE SETVTB 

SETV24: LDA #24 

= 

SETVTB: SEC 
SBC #2 
JSR SETCV 
LDA #$8D 
INC EDCV 
JMP COUT 


;VTAB 24 


:Faulheit: 
:VTAB 1 => CV=96 


‚internes VTAB 
;<CR> macht VCALG 
* 
CLRDSP: LDA #5 
TAX 
JSR SETVTB 
CLRD1: JSR CLRLIN 
INC EDCV 
CLRDS2: LDA EDCV 
CMP #29 
BCC CLRD1 
LDA #5 
JMP SETVTB 


:VTAB 5 


‚löscht Display 
‚von VTAB 5 bis 29 
;internes CV 

;‚VTAB 21 erreicht? 


;ok -— zurück 
‚auf VTAB 5 

* 

* 

III III or rn 22 22 22 o 2 2 20222 2 
#---HOME-CLEOP-CLEOL-SETCV/CH---* 
FERFEFFREFTFEFIERFFFRER RER 
* 

CLEOF8®: EQU $8B 

CLEOL89: EQU $9D 

MONCLP: EQU $FC42 
MONCLL: EQU $FCSC 
ES 


‚Ctrl—K 

;<GaS> 

»Monitor: GCLEDF 
;Monitor: CLEOL 


BER PRGI ;nein, hat LC 
ORA #$89 ;:SHIFTUP: immer 492 
CMP #'!a' ;LC-Zeichen werden 
BCC PRCI ‚invers gedruckt 
PHA 
LDA #+$3F ;INVFLAG: INVERSE 
STA INVFLAG 
FLA 
JSR SETUC 
PRCl: BIT IS49 ;48 Zeichen? 
BPL PRC2 
ORA #589 
PRC2: JSR GOUT 
LDA #$FF ;INVFLAG immer 
STA INVFLAG ;zurück auf NORMAL 
RIis 
* 
PRADDR: JSR PRHEX ‚Acc => 1] Hexzahl 
JSR PRTY ;Y => 2 Hexzahlen 
LDA #'-' 
JSR COUT 
LDA #$Ad ;und ein Space 
JMP COUT 
* 
PRTAY: JSR PRBYTE ;Acc => 2 Hexzahlen 
PRIT: IYA 
PRBYTE: PHA 
LSR A ‚zuerst wird das 
LSR A ;höhere Nibble, da- 
LSR A ‚nach das niedrigere 
LSR A ;‚Nibble gedruckt 
JSR PRHEX 
PLA 
PRHEX: AND #$0F ;Acc => ] Hexzahl 
ORA #$B® 
CMP #$BA :größer "9"? 
BCC PRHX1 
ADC #26 ;+ 7 (Carry gesetzt) 
PRHX1: JMP CGOUT 
# 
PRBEITS: LDY +88 Acc => "I. E Leg 
PRBEl: ASL A ‚also !Urichtie!, d.h; 
PHA ;‚MSB zuerst. 
BCC PREZ ‚Bit nicht gesetzt 
LDA #'1' 
BES ERB3 
PRB2: LDA #',' ‚Bit clear: "!y 
PRB3: JSR COUT 
PLA 
DEY 


SETCV: 


CLP4B: 
* 
CLRLIN: 


CLLAß: 


STA 
STA 
BIT 
BPL 
STA 
RTS 


STA 
STA 
BIT 
BPL 
STA 
RTS 


LDA 
JSR 


BIT 
BMI 
LDA 
JMP 
JMP 


EDCV 
CV 
IIEC 
CVSET 
$5FB 


EDCH 
CH 
LIEC 
CHSET 
$5FB 


+B1 
SETVTB 


1549 
CLP4A® 
#CLEOP8® 
COUT 
MONCLP 


INC EDCV 


LDA 
JSR 


BIT 
BMI 
BIT 
BMI 
LDA 
JMP 
JSR 


EDCV 
SETVTB 


PRINTER 
CLEOLDN 
IS48 
CLL4® 
#CLEOL8B® 
COUT 
MONCLL 


CLEOLDN: RTS 


* 


‚interner Wert 
;Monitor 
:IIc/e 88C0L? 
‚nein 

‚sonst direkt 


‚interner Wert 
‚Monitor 
;IIc/e 8BC0L? 
‚nein 

‚sonst direkt 


;VTAB 1 


‚Clear End_of_Page 
;4B Zeichen 
‚Ctrl für 82 Col 


:Monitor-Routine 


:Clear Line 
‚erzwingt VCALC 
‚auf Ziel-Line 


;Printer an? 

‚=> kein CLEOL! 
:Clear End_of_Line 
;Monitor-Routine 
otrl Tur su Col 


KETTE FREE TEE 
#*--ARGUMENT-BERECHNUNG-—x 
En nn 2 m no 


* 


GETPRM: LDA #MAXBUF 


LDY 


STA 
SsTt 
LDA 
STA 
STA 


#00 
EADDR+1 
EADDR 
#580 
GOTPRMI 
GOTPRM2 





;holt <xx>,<yy> als 
;Start/Endaaresse 
‚aus CmDSIR 
‚Delault-Endadrese 


‚Annahme: Sıart 
‚und Ende explizit 
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brauchen 
Apple Kick 


weil 

es zu jeder Zeit auf Tastendruck zur Verfügung steht. ohne Ihr momentanes Programm zu stören 

es keinen Platz wegnimmt, weder auf Ihrem Schreibtisch, noch ın Ihrem Programmspeicher und 

sich auf dem Bildschirm auf Windows beschrankt 

® auf einmal Ihr Textverarbeitungsprogramm rechnen und Ihr Kalkulationsprograımm Texte erfas- 
sen und übernehmen karın 

® erst durch die Kombination von Rechner, Terminkalender, Notizbuch. ASCII Tabelle. Funktions- 
tasten, Drucker-Buffer, Screendump .... Ihre Anwendersoltware benutzertreundlicher wırd. 

Der Apple Kick läuft aufeinem Apple //e //c mit 128k Ram, CP/M 2.0, 2.2B, 2.23, 2.24 

In Vorbereitung: Basis 108 mit CP/M 2 oder CP/M 3.0 sowie Apple //e mit CP/M 3.0 


Sie erhalten: 
Demokick: DM 10 (wird bei Kauf verrechnet) 
Apple Kick: DM96 


mit: Taschenrechner mit 4 Grundrechenarten, Hex, Bın, Oct, Dez, ASCIH- Tabelle, 128 frei belegba- 
ren Funktionstasten (abspeicherbar), Macros, Drucker-Buffer und Funktionen, Screen-Dump,. Aus- 
führliches Handbuch. 

Apple Kickt: DM245 


mit: dito, Terminkalender, Notizbuch mit fullscreen Editor, Filer (dir, type, era, rename, Hexdump. 


Laufwerkskonfig. ändern), Telefonverzeichnis, Schreibmaschinenfunktionen, erweitertem speicher- | 


resistenten CCP sowie DIR-Command mit free, search path. 
Ausführliche Infos in der Mailbox M.A.U,S, 0251/522790 (300 Baud önl)}oder Info-Blatt anfordern! 


Programmierer, die die Software aufandere Rechner anpassen wollen, werden unterstützt ! 
Nachträgliche Änderungen in der Ausstattung vorbehalten! 


Weitere Produkte: sehr komfortable Mailbox mit Protokollübertragung (s,0.), Window Routinen, Ei- 
genständiger Editor, einzelne Module von Apple Kick auf Anfrage. 

Apple ist og. Wz, von Apple Ing, 

CP/M iste, We, von Digital Research 
Sidekick ste. Wr. von Borland Internat 


0251/522784 
Cs 0251/5322790 (300 Baus anı) 





Der problemlose Aufstieg in die 
Assembler-Sprache 
für alle Apple-Anwender. 


Jeder, der die Grenzen der höheren Programmiersprachen Basic und 
Pascal Überschreiten will, findet in diesem Buch genau die richtigen 
Unterlagen für seine weitere Arbeit in der 6502-Assembler-Sprache. 
Dem Apple-Anwender bietet sich hier sowohl eine umfassende Einfüh- 
rung in das für ihn neue Gebiet der Assembler-Sprache, als auch eine 
äußerst wertvolle Sammlung von aussagekräftigen und nützlichen Pro- 
grammen. Sie bilden den Kern des Buches. Diese Programme lassen sich 
als fertige Utilities ebenso anwenden, wie als Bausteine in Verbindung mit 
Basic- oder Pascalprogrammen. Benhilflich sind diese Routinen für zahl- 
reiche Problemlösungen, denn ihre Konzeptionen lassen sich problemlos 
aneinanderketten. 

Das hier zusammengstragene und wohlaufbereitete Know-how wird den 
Apple-Anwender in die Lage versetzen, seinen Computer ganz wesent- 
lich intensiver kennenzulernen und seine Leistungsfähigkeit besser und 
effektiver auszunutzen. 


Assembler-Programme zum Apple-Ii 


Problemloser Aufstieg 
von Basic in die 
Assemblersprache. 
Von Erich Esders. 


204 Seiten, 

90 Abbildungen 
Lwstr-kart. DM 48.- 
ISBN 3-7723-8141-3 


Franzis’ 


der große Fachverlag für angewandte Elektronik und Informatik 
Franzis-Verlag, Postfach 37 01 20, München 
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Ausgabe und 
Eingabe mit 


TYPETERM® 


im Slot Ihres 


APPLE IV/lle 


Das bedeutet: Computer- 
textverarbeitung von der 
Schreibmaschinentastatur! 
Steckerfertig ohne Umbau. 


Die neue CE-550 
mit TYPETERM DM 1.398,— 


TYPETERM- DM 479,— 
Interface 

für alle BROTHER-Typenrad- 
schreibmaschinen ab CE-51 

bis EM-250 


CE-68 mit TYPETERM sus DM 1947,— 
EM-80 mit TYPETERM sun. DM 1887,— 
TYPETERM-Kit für GE-50 DM 468,- 
Cable Kit A 

(erforderlich ab EM-80) DM 103,- 


TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Gil- 
Befehle. 4k ROM auf der Karte für DOS, 
PRODOS, CP/M, PASCAL. 2 Zeichensätze 
verfügbar z, B. deutsch u. ASCII. Alle 
Features: Hoch-/Tiefstellen, autom. Unter- 
streichen, var. Zeichen und Zeilenabst., 
autom. Papierzuführung usw. 


TYPETERM - ein Produkt von 
Kock & Mreches GmbH 


Postl., 3004 Isernhagen 4 
Telefon 051 39-8 7393 


Ausgabe ni: 


TYPETERM® 
JUNIOR 


im Siot Ihres 


APPLE IV/lle 


Paketpreis DM 899,- 
Schreibmaschine AX-10 mit 
Interface TYPETERM JUNIOR, 
steckfertig. 


CE-550 


uU BAT ER 


TYPETERM JUNIOR mıt AX-10 — unser 

besonders günstiges Gespann, ebenfalls 

steckfertig, Mit TYPETERM JUNIOR kann 

die AX-10 mehr. Sie wird zum vollwertigen 

Typenraddrucker für Ihren Apple: 

@ 3 verschiedene Schriftstärken 

@ Automatisches Unterstreichen 

@ 2 Zeichensätze z.B. deutsch u, ASCIl 

@ 2 Zeichenabstände 

@ 2k ROM auf der Karte für Ausgabe unter 
DOS, PRODOS, CP/M u, PASCAL, 


TYPETEPM JUNIOR - ein Produkt von 


Kock & Mreches GmbH 
Postt., 3004 Isernhagen 4 
Telefon 051 39-8 7393 


UCSD-Pascal 


für Apple II + //e,c-Computer und Kompatible 


Wir können Ihnen folgende Dienstprogramme anbieten: 


Mammut-Editor: wird höchsten Ansprüchen gerecht und 
eignet sich als Programm- und Texteditor. Ein File mit deut- 


schen Compilermeldungen wird mitgeliefert. VP sFr. 250,- 


Mammut-Bildschirm-Treiber: Zeichenausgabe an den 
Bildschirm mit der 4.5-fachen Geschwindigkeit. Funktioniert 
mit allen Ihren Programmen, ohne daß Sie diese verändern 
müssen. Ausdruck des Bildschirms mitten in einem Pro- 
gramm möglich. Es kann auch mit Windows gearbeitet wer- 
den. Einschließlich Quelltext und Anleitung. Nur für Apple Ile 
mit Textcard. VP sFr. 150,- 


Mammut-Format: leistungsfähiges Programm zur Ausgabe 
von Textdateien an beliebige Drucker. Zwei verschiedene 
Drucker können gleichzeitig bedient werden (z.B. Nadel- 
und Typenraddrucker). Unterstützung der druckerspezifi- 
schen Eigenschaften bei einfachster Handhabung. Schön- 
schrift und frei definierbarer Zeichensatz, auch für Matrix- 
drucker ohne NLQ-Modus. VP sFr. 250,— 


Mit diesen Programmen kommunizieren Sie in deutscher 
oder englischer Sprache wahlweise. Außerdem offerieren wir 
eine Gewährleistung von 6 Monaten auf Software und 
Datenträger. Programme mit deutschen Anleitungen oder 
kostenlose Informationen erhalten Sie bei 


MAMMUT Soft 


Condrau und Brunner » Postfach 373 : CH-8600 Dübendorf 


Eine Demo-Diskette ist gegen eine Bearbeitungsgebühr von 
sFr. 20,- erhältlich. 
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ABDT: 
ÖBDA: 
ABDD: 
ÖBDF: 
ABER: 
BEA: 
BBET: 
BBEA: 
ÖBED: 
ÖBEF: 
ABF1: 
ÖBF2: 
ÖBF5: 
ABFT: 
ÖBFA: 
BBFC: 
BBFF: 
BCBB: 
dcQ#1: 
Ach2: 
Acas: 
BCd6: 
BCc9S: 
BCBB: 
Bcac: 
ACHF: 
Dee 
A614: 
Ötcle: 
;AE 
AC19: 
BC1B: 
ACIE: 
:4E 


Ac16 


dc21 


BC24: 
BC25: 
AG 
AC2B: 

:2B 
AC2B: 
BC2D: 
Bc3ß: 
ILS: 
BC35: 
BC36: 
NC36: 
AC38: 
AC3B: 
ÖC3E: 
DS 
Bca2: 
‚AG 
BCAB: 
BC486: 
AC49: 
ACAB: 
ÖCAE: 
ACAF: 
Bc52: 
NC5B: 
AC58: 
BCSA: 
DC5E: 
ÄCSF': 
BC62: 
BC63: 
BC65: 
ÖC6B: 
AC6B: 
BC6E: 
ÄCEF: 
BC7B: 
BC7B: 
BcTB: 
DETS: 
8075: 
BETT: 
8079: 
BCTB: 
ACTD: 
BCTE: 
DUTR: 
ÄCTF: 
#082: 
BC8BA: 
BCB6: 
BC88: 
ÖCBA: 
ÄGSE: 
ACBE: 


AC25 


BC28 


BcAp 


BC43 


Ag 
&8D 
8D 


69 


BB 
AD 
AC 


s] 
A9 
8D 
BD 
c9 


E8 


9E 
36 
37 
2D 
4l 
Al 
AB 
DB 
AC 
30 


36 
RE 
2D 
29 
AS 


Ad 


Al 
JA 


A2 
13 
A5 


DE 


AA 
0 
AD 
Al 
A5 


AA 


36 
58 
AT 
A6 
B2 


58 


7 
24 
A6 


9E 
DB 
78 
14 
B4 
A6 
AT 


FT 
A6 
A6 
AE 


IE 
89 
AF 
DA 
83 
87 


dc 
dc 


BC 
dc 


BC 
B2 


Sc 
BC 
BC 


BC 
BC 


ne 
Bc 


BC 
BC 
BC 
dc 
DA 
BC 


Sc 
dc 


BC 
82 


rı 
BC 
Bc 
BC 


B2 
BC 


BC 
BC 


BC 
dc 
dc 


BC 


BA 


549 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
579 
571 
572 
573 
574 
575 
576 
577 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
59% 
591 
592 
593 
594 
595 
596 
597 
598 
599 
5171" 
601 
602 
503 
594 
685 
696 
607 
6ß8 
689 
61® 
6ll 
612 
613 
614 
615 
616 
617 
618 
619 
62® 
621 
622 
623 
624 
625 
626 
627 
628 
629 
638 
631 


* 
SETPRMl: LSR GOTPRMIl 


SETPRM2: LSR GOTPRM2 
RTS 


PRMSET: 
* 





LDX 
JSR 
BCS 
JSR 
BCS 
STA 
STY 
LDA 
CMP 
BNE 
INX 
JSR 
BCS 
JSR 
BCS 
STA 
PHA 
SEC 
TYA 
SBC 
PLA 
SBC 
BCC 
INY 
SIT 
BNE 
INC 
BNE 


LDA 
STA 
STA 


CMDIDX 
EVALHEX 
SETPRM1 
TSTARG 
PRMERR 
SADDR+1 
SADDR 


CMDSTR,X 


— 1 r 
F 


SETPRM2 


EVALHEX 
PRMERR 
TSTARG 
PRMERR 
EADDR+1 


SADDR 


SADDR+1 
PRMERR 


EADDR 
PRMSET 
EADDR+1 
PRMSET 


=99 
SADDR 
SADDR+1 


PRMERR: JMP CMDERR 


* 


EVALARG: JSR EVALHEX 


TSTARG: LDA EVREG+1 


ARGEV: 
* 


BCS 


LDY 
UMP 
RTS 


ARGEV 


EVREG 
#MAXBUF 


EVALHEX: LDA #99 


* 


EVALI1ST: JSR SETHEX 


EVLOOP: 


MULTI86: 


STA 


LDA CMDSTR,X 


CMP 
BNE 
INX 
JMP 


BCS 
STA 


INX 


STX 


LDA CMDSTR,X 


JSR 
BCS 
LDY 


EVREG+1 


#0! 
EVAL1ST 


GETVAR 
EVALOT 
EVREG 

CMDIDX 
SETHEX 


EVALEND 
+4 


ASL EVREG 


ROL 
DEY 
BNE 
ORA 
STA 
JMP 


EVREG+1 


MULT16 
EVREG 
EVREG 
EVLOOP 


EVALEND: CLC 


EVALQT: RTS 


* 
* 


SETHEX: JSR TSTHEX 


HEXSET: 
* 
TSTHEX: 


BCS 
SBC 
CMP 
BCC 
SBC 
CLC 


RTS 


HEXSET 
#+5AF 
#h0A 
HEXSET 
+$97 


JSR SETUC 


CMP 
BCC 
CMP 
BCC 
CMP 
BCC 
CMP 


#9! 
NOTHEX 
#5BA 
ISHEX 
#'A' 
NOTHEX 
#'G' 


;Test&Berechnung 
‚erstes Argument 
:kein Argument 
‚Arg > MAXBUF? 
:#Parameter Error" 


: folgt Komma? 


;nein, keine EADDR 
nach ",. MUS das 
‚zweite Argument 
;folgen, sonst ERR 
‚Arg > MAXBUF? 


;:Test, ob SADDR 
‚größer BEADDR 


;ja, ERR 

;BADDR ist Ober- 
‚grenze, d.h, 

;:lI mehr als 
‚angegeben 

;ok- "always" 


‚Flag zurück 


:Default-SADDR 
‚ist 88 08 


;EADDR ist 


‚bereits gesetzt 


‚Argument aus CMDSTR 
;illegal 


:RTS mit GC set, 
;:wenn > MAXBUF 


;:Yariable? 


‚Variable einsetzen 


; Umwandlung ASCII=>Hex 
;keine Hexzahl 


;dieses Zeichen 
‚ist erledigt 


‚Hex-Argument zuende 


‚alte Zahl = 16 


‚und neue Zahl dazu 


‚Argument erhalten 


;C set wenn illegal 


;Test auf Hexzahl 


‚minus $Bd 


:Shift nach UC 


BC99:90 91 
NC92:38 
MC93:6B% 


8094: 
AC94: 
BC94: 
BC9A: 
BC94: 
BC9A: 
BC9A: 
BC94: 
B094: 
BC94: 
BC95: 
AC96: 
BC9T: 
Bc9T: 
BC98: 
AC99: 
ÖCHA: 
BCSB: 
ACSC: 
ACOD: 
dcSD: 
BCE: 
BCHF: 
ÖCAB: 
BCAB: 
BCA2: 
BCAA: 
BCAS: 
BCA6: 
BCAB: 
ÖCAB: 
ACAS: 
BCAA: 
ACAB: 
ÖCAC: 
CAD: 
BCAD: 
ÖCAE: 
ÖCAF: 
BCBP: 
BCBB: 
BCB2: 
BCB4: 
BCB6: 
ÖCBE: 
ACBA: 
BCBA: 
ACBB: 
ACBB: 
BCBD: 
ACBF: 
ÖCBF: 
SCCR: 
ÖCCR: 
dcc2: 
B0ca: 
ACC4: 
ACC6E: 
dCcE: 
BBBA: 
ÄCDB: 
ACDP: 
ACDB: 
ACDB: 
ÖCDB: 
ÖCDB: 
DCEG: 
ÖGED: 
ADB4A: 
BD13: 
BD14: 
AD23: 
BD24: 
ÖD2D: 
ÖD2E: 
DAL: 
ADA2: 
PD54: 
8D55: 
BDSF: 
BD6EB: 
BDT7C: 
ÖDT7D: 
ADTD: 
ADTD: 


El 


EC 
C6 


F2 


AF 


Fö 


EF 


EF 


D5 


BA 


EC 
E9 


E9 
CF 
F4 
AB 
AB 


CD 


652 
655 
654 
635 
636 
657 
638 
639 
640 
64l 
642 
643 
644 
645 
646 
647 
648 
649 
859 
65l 
652 
693 
654 
655 
696 
657 
658 
659 
660 
661 
662 
665 
664 
665 
666 
667 
668 
669 
670 
Sal 
672 
673 
674 
675 
676 
677 
678 
679 
68B 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
799 
Tel 
782 
783 
794 
785 
786 
787 
798 
789 
719 
Te 
712 
713 
714 
715 
118 
217 
718 
719 


BCC ISHEX 
NOTHEX: SEC 
ISHEX: RTS 
* 

% 

* 
ereer 
*——-GLOBALS--—* 
Ber 
* 

GLOBALS: EQU x 
E 2 

TEMP: DS 1 


:keine Hexzahl 
:C clear wenn ok 


‘Scratch 


EDCHyı DS 1 ‚internes CH (Cursor) 
EDCYz;- DS 1 :internes CY (Cursor) 

E2 

HMAX: DS 1 ‚49: A492, 80:89 Zeichen 
SHIFTUP: DS 1 :d: hat LC, sonst $FF 
ITEC:. Ds |] :$FF, wenn IIe/c 88 Col 
ISsad: DS 1 ‘$FF: 48 Zeichen 
PRINTER: DS 1 :$FF: Printer-Ouput 
NODSP: DS 1 :;5380: kein DUMP-Display 
* 

MAXCMB: DS 1 ;max. Länge von CMDSTR 
CMDIDX: DS 1 ‚mom. Index in CMDSTR 


CMDEND: DS 1 

* 

SADDR: DS 2 

BEADDR: DS 2 

GOTPRMl: DS 1 
GOTPRMZ: DS 1 
EVREG: DS 2 

* 

NXTMODE: DS 1 


;Gesamntlänge CMDSTR 


‚Startadresse (®..MAXBUF) 
‚Endadresse (®..MAXBUF) 

:$89, wenn SADDR explizit 
;588, wenn EADDR explizit 
‚momentaner Argument-Wert 


‚nächster DUMP-Modus 


AMODE: DS 1 ; ASCII-Dump 

HMODE: DS 1 ;Hex/ASCII-Dump 
CMODE: DS 1 ; COMPARE-Dump 

VMODE: DS 1 : VBM-Dump 

* 

EBrTES. DS ;Temp für Bytes/Zeile 


BPLINE: DS 1 
NBYTES: DS 1 

* 

DSPBTM: DS 2 
DSPSTARL 55 2 
NXTADDR: DS 2 
DSPEND: DS 2 
DSPTOP: DS 2 


‚Bytes per Zeile, 892 
;gedruckte Bytes/Zeile 


;Untergrenze für Dump 
;momentaner Dump-Start 
‚Zeilen-Startadresse 
‚mnomentanes Dump-Ende 
‚obere Grenze für Dunmp 


* 

SUCCEED: DS 1 ‚+1 oder "-" für JUMP 
* 

CPBAÄSE: DS 2 :CDUMP-Basis in BUFFER 
CPIDA: Ds, 2 ;COMPARE: HLBUF-Index 
* 

HLSET: D5 1 ;$388: HLBUF gesetzt 


HLNUM: DS 2 ‚Anzahl Bytes in HLBUF 
ar: DS 2 ;Startadresse von SET 
Tune Da, 2 ‚Startadresse von FIND 
LGLBL: EQU « ;Variablen-Ende 

i DS 6@+GLOBALS-LGLBL ;Erweiterungen 
ienniee 


* 

#% 

ERRMSGS: EQU * 

ERRCHD: ASC 'Bad Command/Syntax/Parameter' 


DFB 98 ;Textende 
PATHERR: ASC 'Illegal Pathname/Volume' 
ASC '/File not found' 
DFB 99 
WPROT: ASC "Write protected' 
DFB 99 
ERRWR: ASC 'I/O ERROR’ 
DFB 96 
EXXBUF: ASC 'Out of Buffer Range' 
DFB 8 
NOBUF: ASC 'No Hold Buffer set! 
DFB 88 
PFXNONE: ASC 'No Prefix?®'! 
DFB 98 
BADLBL: ASC "JUMP Label not found/illegal' 
DFB 89 
* 
# 
CHN ED ,DISKIO.TAT 


Peeker 5/86 


ED.DISKIO.TXT 


BDTD: 
BD7D: 
9882: 
AD7D: 
BDTD: 
BE3ß: 
BE34: 
AD7D: 


BDTD: 
ÄDTF: 
AD82: 
MD84A: 
BDBS5: 
AD8T: 


ÖD88: 


ÖDS8: 
ÄDSA: 
ADEC: 
MDSF: 


8D92 


ÖD94: 
AD95: 
BD97: 


A2 
B5 
9D 
BD 
:95 
GA 
18 
7) 


AD98: 


2D98 


‚AG 


BD9B: 
ÖDSB: 
BD9B: 
ÖD9B: 
ADSB: 


ÖDSB: 
ÖDSD: 
ÄDAB: 


A9 


D® 


BDA2: 
BDA2: 
BDA3: 
ADAS: 
PDAS: 
BDAZ: 
BDAS: 


BDAS: 
PDAB: 
BDAS: 
BDAC: 
ÄDAF: 
SDBl: 
ÖDB3: 


ÖDBE: 


ADBE: 
@DB9: 
ÄDBEB: 
ÄDBD: 
ÖDBE: 
ÄDCB: 
NDC2: 
BDCA: 
ADC6E: 
ADCE: 
BDCB: 
ÄDCE: 
ÖDDB: 
ADD2: 
ÖDD5: 
ADD6: 
ADD8: 
ADDA: 
ADDC: 
fDDE: 
ADEl: 
ÖDE2: 
DES: 
ADES: 
BDE9: 
ADEA: 
ÖDED: 
BDFB: 
ÖDF2: 
ADF3: 
ÖDF4: 
ADFS: 
ÄDFE: 
ÖDFA: 
ÖDFB: 
ÖDFE: 
ÖDFF: 
ÖEB1: 
dERA: 
BERGE: 
AEB9: 


Peeker 5/86 


B3 
36 


F8 


85 
36 
3ß 
34 
36 


PS 


D3 


8% 
AZ 
d4 


83 
AF 
5E 


B9 
1C 
1A 
#8 
16 
66 
83 
AC 
BC 
83 


Bl 
94 
#2 
83 
AA 


96 
65 


66 
67 
EB 


66 
BO 


65 


Bl 
A2 
89 
cl 
BE 


BE 


BE 
BE 


B3 


ÖD 


SD 
Bc 
B2 
BA 
BE 


BE 


DE 
DE 


DE 


BA 
BC 


öE 


BE 


BE 


DE 


DE 


AD 


1® 
18 


ee u Se u ee u u 
DOIANDHEU GO SIT AGD HH 


PAGE 
RER 
MAXBUF: EQU 2 :$5260 Byte per Block 
KERERERERETER EEE 
* 
VECTOUT: EQU $BE3P 
VDOSIO: EQU $BE34 
* 
DISCONN: LDX #93 


‚I/0O-Vecs BASIC.SYSTEM 
:Handler BASIC.SYSTEM 


;BASIC,SYSTEM ab: 


DISCNl: LDA VECTOUT,X ;CSW/KSW werden 
STA COUTY,X ;mit den I/O-Vecs 
DEX ‚direkt gesetzt, das 
BPL DISCNl ;BASIC,SYSTEM hängt 
RTS ‚nicht mehr dazwischen 


* 


DOSCONN: LDX #83 ;BASIC,SYSTEM an: 


DOSCNl: LDA COUTV,X ;CSW/KSW zurück 

STA VECTOUT,X ;in die I/0s 

LDA VDOSIO,X ;und der Handler 

STA COUTV,X ‚des BASIC,SYSTEM 

DEX ‚nach CSW/KSW 

BPL DOSCNI 

Rs 
* 
EXIT: JMP $3D3 :DOS Kaltstart 
* 
KR 


#--READ_BLOCK/PREFIX-—— x 
ek 


“ 

READ: LDA #$89 ;die folgenden 
STA RDFLAG ‚Aktionen beziehen 
BNE WRITEZ :sich auf READ 


* 
RDFLAG: DS 1 
* 

DI 22 Ze 2 22 ZU 2 02 22. 
*--WRITE_BLOCK/PREFIX-—* 
KERIEEEEEEEER 


‚B7 set, wenn READ 


* 
WRITE: LSR RDFLAG 
WRITEZ: LDX CMDIDX 
LDA CMDSTR,X 
JSR SETUG 
CMP #'P' 
BEQ SETPATH 
JMP RWBLOCK 


;RDFLAG zurück 


;Shift nach UG 
‚Path? | 


* 
SETPATH: JSR GNCHAR 
CMP #'/' 
BEQ SPREFIX 
SEC 
SBC 
BCC 
BEQ 
UMP 
BCS 
SsTA 
JSR 
CMP 
BNE 
JSR 
SEC 
SBC 
BCC 
CMP #82 
BCC SUNITI 
UNITERR: JMP CMDERR 
SUNIT1l: INX 
STX CMDIDX 
STA PDRIVE 
LSR A 
PHP 
LDA 
JSR 
AND 
FLE 
ROR A 
SETINFO: TAX 
LDA PSLOT 
ORA #$BP 
TAY 
LDA 
CLC 
AD 
BIT 
BPL 
STA 
STY 


‚nächstes Zeichen 


;Pathname folgt 

SUNIT. | 
rl 
UNITERR 
UNITERR 
+8 
UNITERR 
PSLOT 
GNCHAR 
#4, 
UNITERR 
GNCHAR 


:muß dann SLOT sein: 
‘kleiner '9'? 
OUT SLOT Irgsir: 


‚danach ein Komma 


#+'1' 
UNITERR 


‚und die Driveno 
‚es auf D oder | 
‚Befehl 'abgehakt' 
;‚Driveno ins Carry 
PSLOT 


SHIFTS 
#$E9 


‚BOBBdxxx => xxxdBhhd 
‚1118 B009 


;‚Driveno ins NMSB 
;Unitnummer 


:Slotnummer für PRINPO 


PDRIVE 


#$Bl 
RDFLAG 
WRINFO 
SDRIVE 
SSLOT 


‚Driveno für PRINFO 


‚nur WRITE geändert 


ABC: 
ÖBÄF: 
BEI2: 
:8E 
:AG 
ÖEIB: 
BEIB: 
ÖEID: 
ÖE2B: 
:D9 


BEL5 
dEIB 


E22 


ÖR25: 
ÖE2T: 
BERB: 
BE2B: 
DERE: 
:D® 
0E33: 
AE33: 
BE3S: 
ÖE38B: 
NESB: 
NESD: 
AEAD: 
AEAZ: 
AE45: 
BEAB: 
AEAB: 
MEAD: 
MEAD: 
AB4F': 
AE52: 
E54: 
BEST: 
BES8: 
BEBB: 
QESB: 
ÖESE: 
ESF: 
BE6L1: 
AES2: 
ÖES3 : 
BE6S: 
BE65: 
BESE: 
BEST: 
BEST: 
BES: 
ÖEBA: 
ÖBESB: 
ÖBSD: 
ÖBESE: 
AESE: 
BESF: 
ÖET2: 
BETA: 
BETE: 
ÖE79: 
BETC: 
BETE: 
BE8l: 
ÖE82: 
BEB2: 
ÖEB3: 
AES3: 
BEBA: 
ÖEB7: 
ÖE89: 
BEBB: 
ÖBEBD: 
PEBSF: 
BEIB: 
dESO: 
PESB: 
BESB: 
ÖE93: 
BESS: 
BEIB: 
ÖESB: 
ÖESD: 
BESF: 
:FÖ 
BEAZ: 
BEAS: 
AEAB: 
BEAB: 
BEAE: 
:S9 
AEB3: 
DEB3: 
ÖEBS: 
AEBT: 


E31 


DEAL 


BEBl 


8E 
8D 
8C 


Ad 
29 
Ag 


ro 
c8 
99 
sc 
20 


Ag 
8D 
AD 
c9 
ZE 
20 
29 
8D 
AD 
Dö 


A9 
8D 
Ad 
AE 
ca 
ac 


20 
8E 
F® 
BE 
c9 
Fo 
c9 


20 
3% 
ac 
AD 
AE 


A9 
Ad 
9 


16 
E6 
E3 
25 
75 


9 
6E 


AF 
AB 
B4 


Ad 
Ad 
5B 
1A 


ACc 


oo 
öE 


d2 


85 


FÜ 


Ad 
AF 
B3 
82 
83 
F9 
9E 


D8 
B6 
Al 


AD 


84 
9E 
51 
9E 
AB 
14 
AD 
16 
36 


AA 
AT 
A6 
81 
#3 





ÖF 
19 
1.9 


1P 


dE 
B2 
B2 


B2 
BE 


BE 
BF 


BE 
ÖE 


ÖE 
BF 


82 
dc 
BA 


BF 


d2 
BE 
BE 
BC 


d2 


BE 
dc 


dc 


BC 


DA 
BC 
Bc 


99 
91 
92 
93 
94 
95 


97 
98 
99 

189 

161 

192 

193 

184 

195 

196 

197 

198 

199 

11® 

111 

112 

113 

114 

115 

116 

107 

118 

119 

126 

121 

122 

123 

124 

125 

126 

127 

128 

129 

13® 

13] 

132 

133 

134 

135 

136 

137 

138 

139 

14ß 

143 

142 

143 

144 

145 

146 

147 

148 

149 

158 

151 

152 

153 

154 

155 

156 

157 

158 

159 

16# 

161 

162 

163 

164 

165 

166 

167 

168 

169 

178 

lan 

172 

173 

174 

175 

176 

vr 

178 

179 

189 


dos 124 


STX RDUNIT 
WRINFO: STA TDRIVE 

o1Y TSLOT 

STX WRUNIT 

JMP PRINFO ‚Anzeige 
* 


SPREFIX: LDY +99 ;Start neuer Path 
JSR GETPATH ‚kopiert von CMDSTR 
LDA #'!/' 
CMP PATH,Y ;letztes Zeichen '"/"? 
BEQ GOTPFX ;Ja 
INY ‚sonst "/" anhängen 
STA PATH,Y 
GOTPFX: STY PATH ;Länge des Path 
JSR MLISPFX :MLI: SET PREFIX 
BNE BADPATH 
* 
GOTUNIT: LDA #00 
STA PDRIVE 
LDA $BF39 ılast Unit" 
CMP +#$7F ‚setzt GC, wenn Drive 2 
ROL FDRIVE ‚=> Ü oder ] 
JSR SHIFT5 :XXXXÖBDD => Bißhxxxx 
AND #97 
STA FSLOT ‚Slotnummer 
LDA $BF3$ 
BNE SETINFO ; "always" 


x 

BADPATH: LDA #99 
STA. PATH 
LDY #PATHERR-ERRMSGS 
LOX CHDIDA 


:Pathnanme auf "" 


DEX auf letztes Zeichen 
JMP DSPERR ; des Path 
* 
MLISPFX: JSR $BF%d 
DFB $C6 ;:MLI: SET PREFIX 
DW PRBLOCK 
RTS 
PRBLOCK: DFB @1 ;l Parameter 
DW PATH ;FPathname-Startadresse 


* 


PDRIVE: DS 1 ‚Scratch für Driveno 
PSL.072 Ds] »Seratch für Slotne 
* 
SHIFT5: LDY #85 ‚vertauscht oberes 
SsH5l==2 7ROR A ‚und unteres Nibble 
DEY In AGc 
BNE SHS51 
Ro 
# 
GETPATH: INY ;kopiert Path von 


STA PATH,Y ‚von CMDSTR 
ECMRe+ IA ;Start neuer Name? 
BNE NOTNXT 
STY LNAME ‚Ja, Index halten 
NOTNXT: JSR GNCHAR ‚nächstes Zeichen 
BNE GETPATH nleht space, "IV SetTg 
STX CMDIDX ;Path "'abgehakt' 
Rs 
% 
LNAME: DS 1 ‚Index auf letztes "/" 
* 

GNCHAR: INX ;holt nächstes 
GNCHARZ: LDA CMDSTR,X ;Zeichen aus CMDSTR 
BEQ GOTNCHAR  ;CMDSTR-Ende 

CMP #STOP 
BEQ GOTNCHAR ;RTS mit "EQ", wenn 
CMP #5$AQd opasce>, tl zu 

GOTNCHAR: RTS 

* 

* 

* 

RWBLOCK: JSR GNCHARZ ;testet auf Space, 
STX CMDIDX ZU arte, 
BEQ DORW ;R/W ohne Argument 
INC CMDIDX 
CMP #'+' 
BEQ BLOCKUP ;Blocknummer + 1 
CMP #'-' 
BEQ BLOCKDN ;‚Blocknummer - 1 
JSR EVALHEX :folgt Nummer? 
BCC RWBl „Ja, "BU zaxx" 
JMP CMDERR 

RWBl: LDA EVREG+Hl 
LDA EVREG 
BGG RWBS ‚always! 

* 

BLOCKUP: LDA #81 :Blocknummer + 1 
LDY #99 
BEG RWB2 


23 


24 


ÖEB9: 
ÖEBB: 
ÖEBC: 
BEBD: 
BECR: 
BEC2: 
dECS: 
BECS: 
BECT: 
BECA: 
BECD: 
BEDB: 
dED1: 
AED2: 
BEDS: 
BEDS: 
EDS: 
BEDA: 
BEDD: 
BEEB: 
ÖEE3: 
BERG: 
BEE: 
BEEI: 
ÖEES: 
ÖBEC: 
ÖEEE: 
:D®B 
ÖEF3: 
ÖEFS: 
BEFY: 
DEFS: 
ÖEFC: 
ÖEPE: 
BEFF: 
ÖEFF: 
ÖFBLl: 
BFB3: 
BFOS: 
ÖF®T: 
ÖFBA: 
BFOB: 
BFÖR: 
BFOR: 
örll: 
Arl2: 
ÖF14: 
AF15: 
ÖFIS: 
ÖF17: 
AF19: 
ÖFIB: 
AFIB: 
ÖFlE: 
AFIF: 
AF21: 
BF22: 
AF23: 
ÖFRA: 
ÖF2S: 
BF28: 
ÖF28: 
ÖF28: 
ÖF2B: 
AF28: 
ÖF28: 
ÖFRA: 
ÖF2D: 
AF3B: 
ÖFZ2: 
ÖF35: 
BF3T: 
ÖF39: 
BFSC: 
BF3E: 
Ar4l: 
BFAA: 
AFAS: 
ÖF48: 
BFAA: 
ÖFAC: 
AFAF: 
ÖFS52: 
AFSA: 
AFBS: 
AFB56: 
ÖFS8: 
ÖFSA: 
FED: 
ÖFSF: 
AF62: 


BEFL 


A9 
A8 
18 
RC 


SD 
AA 
98 
6D 
ac 
6D 
AA 
23) 


28 
19 
8D 
SE 
8D 
8E 
20 


ec 
19 
29 


2 
ac 


2» 
DB 
69 


AB 
c9 
D® 
AB 
AE 
CA 
ac 


FF 


A2 
dB 
19 


1A 
D5 
is) 


A2 
öB 
dE 
dc 
5C 
FE 


1B 
dl 
54 


2B 


4 
9E 


AC 
010 
dr 


24) 
DB 


Do 
ÖF 


28 
un) 


1P 
a 
AB 
TF 
91 
82 


ÖD 
BF 
BF 
dE 
ÖrF 
ÖF 
BD 
BF 
OF 
dr 


BF 
19 


BD 


Il 
BE 


DF 


BC 
BA 


BF 


BF 


BD 
dc 


B2 


82 


dE 
BE 


dE 


BE 
82 


82 


BF 
BE 


181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
281 
282 
203 
204 
205 
206 
287 
208 
269 
210 
2 
212 
213 
214 
215 
216 
217 
218 
219 
228 
221 
222 
223 
224 
225 
226 
227 
228 
229 
238 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
269 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 


BLOCKDN: LDA #$FF 


RWB2: 


MODWR: 


RWBS: 


RWB4: 


DORM: 


* 


DOWRITE: JSR MLIWRITE 


RWDONE: RTS 


+ 


TAY 
CLC 
BIT 
BPL 
ADC 
TAX 
TYA 
ADC 
JMP 
ADC 
TAX 
TYA 
ADC 


BEL 
BPL 
STA 
STX 
STA 
SE 
JSR 


BIT 
BPL 
JSR 
BNE 
JSR 
JMP 


BNE 


RDFLAG 
MODWR 
RBLOCK 


RBLOCK+] 
RWB3 
WBLOCK 


WBLOCK+1 


RDFLAG 
RWBA 
RBLOCK+1 
RBLOCK 
WBLOCK+1 
WBLOCK 
PRINFO 


RDFLAG 
DOWRITE 
MLIREAD 
RWERR 
DUMP 
RWDONE 


RWERR 


;Blocknummer - 1 


;:RBLOCK oder WBLOCK? 


‚Anderung von WBLOCK 


‚mit READ wird auch 
;WRITE modifiziert! 


;Anzeige der Änderung 


;READ BLOCK 


‚evtl, 


neue Anzeige 


‚des BUFFER-Inhalts 


RWERR: LDY #ERRWR-ERRMSGS 
;:WRITE PROTECTED? 


# 


CMP 
BNE 


+62B 
RWERRZ 


LDY #WPROT-ERRMSGS 
RWERRZ: LDX CMDIDX 


DEX 
JMP 


DSPERR 


MLIREAD: JSR $BFQd 


DFB 
DW 
RTS 


589 
RPBLOCK 


RPBLOCK: DFB 93 
RDUNIT: DFB $6® 


DW 


BUFFER 


RBLOCK: DW 608 


* 


MLIWRITE: JSR $BFod 


DFB 
DW 
RTS 


$8l 
WRPBLOCK 


WRPBLOCK: DFB 93 
WRUNIT: DFB $6ß 


DW 


BUFFER 


WBLOCK: DW BB 


* 


FEEEEHFRTFHHF FE 
#———SFILENAME-——* 
FEFHFHERERRERI HN 


* 


ATFILE: LDA #$89 


ISPFX: 


STA 
LDX 
LDY 
LDA 
CMP 
BEQ 
LDY 
BEQ 
STY 
JSR 
TYA 
LDY 
CPY 
BEQ 
STA 
Sul 
LDX 


RDFLAG 
CMDIDX 
+00 
CMDSTR,X 
+1 /\ 
ISPFX 
PATH 
NOPFX 
LNAME 
GETPATH 


LNAME 
#g1 
GETVDIR 
LNAME 
PATH 
+09 


GETLAST: INY 


INX 
CPX 
BES 
LDA 
AND 
STA 
GPY 


#16 
BADFNAME 
PATH,Y 
#$7F 
FNAME,X 
LNAME 


‚Index auf letztes 
‚Zeichen im Command 


;MLI: READ BLOCK 


;‚3 Parameter 
„alot68, Draverı 
‚Zieladresse 
;Blocknummer 


;MLI: WRITE BLOCK 


;3 Parameter 
;slot 6, Drive 1 
;Quelladresse 
;Blocknummer 


‚für SETINFO und 
;READ BLOCK 


‚Annahme: 
‚Path: 


voller Path 


l.Zeichen 


start mit uzır 
‚ok- eigenes Prefix 
‚altes Prefix? 

"No Prefix?7' 


;Index zum letzten "/" 


;‚CMDSTR => PATH 


‚Index letztes Zeichen 


‚Index letztes "/" 
‚= erstes Zeichen? 


‚nur ein Name: 


VolDIR 


‚für Vergleich 
‚Länge "Prefix-Path" 


‚nächstes Zeichen, 
‚bzw. am "/" vorbei 
‚Name > 15 Zeichen? 


;Kopie letzter Name 
;‚des Path nach FNAME 


;Path-Ende? 


ÖF65 
ÖF6T 


BF6A: 
ÖFSC: 
BFSC: 
ÖFGF: 
ÖFT2: 
BF74: 
BFT6: 
‚AG 
ÖFTB: 
ÖFTB: 
AFTE: 
BFSB: 
:A® 
ÖF8S5: 
BFEB: 
:4C 
AFEC: 

AB 
BFSE: 
ÖF91: 
ÖF9L: 
BFAL: 
AFAl: 
BFAA: 
BFAG: 
BFAS: 
ÖFAB: 
BFAD: 
ÖFBB: 
AFB2: 
:8D 


ÖF78 


ÖF83 


BF89 


FSC 


ÖFBS5 


ÖFBS: 
AFBB: 
ÖFBD: 
ÖFCR: 
:8D 
BFCE: 
ÖFC9Y: 
ÖFCC: 
ÖFCF: 
ÖFCF: 
ÖFDIl: 
ÖPFD3: 
ÖFDS: 
BFDT: 
BFDA: 
ÖFDC: 
ÖFDC: 
ÖFDF: 
AFE2: 
AFEA: 
ÖFES: 
AFET: 
BFES: 
ÖFEB: 
ÖFED: 
AFFB: 
ÖFF2: 
ÖFF2: 
ÖFFS: 
AFF7: 
ÖFF9Q: 
ÖFFA: 
ÖFFD: 
ÖFFF: 
1881: 
1983: 
1085: 
1895: 
1088: 
18BB: 
1ddE: 
:FÖ 
‚AU 
1816: 
1B16: 
:AD 
1®1B: 
1®d1D: 
ID ik: 
1Ö1F: 


ÖFC3 


1ß1] 
1813 


1819 


1921 


:9B 
:8E 


BB 


8D 
2B 
Do 


Ag 


rd 
Ag 
8D 


AB 
CA 


ac 


ed 
D® 
AD 


3 
20 
DO 
AD 


2d 
DO 
8D 
AD 


AD 
8D 
8D 


AD 
8D 
ER 
2B 


2D 


Bl 
AA 
c8 
Bl 


‘86 
1924: 
1927: 
102A: 
1B2D: 
1838: 
1038: 
1933: 


8D 
8E 


20 
ac 


ED 
ul 
35 


Ad 
5B 
87 
B2 
#9 
21 


Sc 


AB 
1D 
98 


ACc 


89 
AC 


37 
D5 
45 


Ch 
59 
9 
56 
65 
SD 
BE 
33 
23 
54 
24 
35 
56 


91 
gl 
20 
BC 


F6 
al) 
BF 
91 
24 


6C 
4.1, 


Do 


DB 
19 
1A 
26 
27 
33 
E9 


BF 


02 
BE 


19 
19 
d2 
BC 
BA 


BA 


10 
18 


1 


19 
19 
1 


18 
2d 
19 
20 
19 
19 


19 


ÖF 
AF 


BF 


18 


19 


19 


18 
19 


BF 
19 


ör 
BF 
BF 
BF 
BE 
BE 


274 
275 
276 
277 
278 
279 
280 
28] 
282 
283 
284 
285 
286 
287 
288 
289 
29% 
291 
292 
293 
294 
295 
296 
297 
299 
309 
301 
392 
383 
394 
385 
386 
387 
398 
309 
319 
3 
312 
313 
314 
315 
316 
517 
318 
319 
328 
32] 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
349 
34] 
342 
343 
344 
345 
346 
347 
348 
349 
358 
351 
352 
353 
354 
355 
356 
357 
358 
359 
368 
361 
362 
363 
364 
366 


BCC GETLAST 
STX FNAME ‚Länge letzter Name 
BCS SETDIR ;"always!" 

* 

GETVDIR: STA PATH ‚Path-Gesamtlänge 
JSR MLISPFX ab PREEPTIK 
BNE BADFNAME 
LDX #92 ‚nur ein Name: 

LDA +99 ;VolDIR (Block Böd2) 
JMP GOTVDIR 

* 

BADFNAME: JSR MLICLOSE ;CLOSE aller Files 
LDA #9 ;Pathname auf "" - 
STA PATH ‚löscht leider Prefix 
LDY #PATHERR-ERRMSGS 
EBX SCH IDX 
DEX 
JMP DSPERR ‚"mile not found." 

* 

NOPFX: LDY #PFXNONE-ERRMSGS 
JMP DSPERR NSS ProIax?" 

* 

FNAME: DS 16 ;‚Filename+tLänge 

* 

SETDIR: JSR DIRINFO :;GET FILE INFO für 
BNE BADFNAME ;letzte DIR im Path 
LDA STYPE ;aus F'INFO 
CMP #$ßD ;muß (Sub)DIR sein 
BCC BADFNAME ;SType < $D/S$F 
JSR DIRÖOPEN ‚OPEN der Directory 
BNE BADFNAME 
LDA OREFNO ‚Refno von OPEN 
STA RREFNO ‚=> Refno für READ 
JSR DIRREAD ;READ erster Block 
BNE BADFNAME 
STA BLOCK1 ;=ß: Flag 1,Block 
LDA BUFFER+$23 ;READ-Ziel: BUFFER, 
STIA ELEN ‚der Header der DIR 
LDA BUFFER+$24 ;enthält die Länge 
STA ECOUNT ‚und Anzahl der 
STA FCOUNTER ;Einträge pro Block 

* 

NXTBLOCK: LDA #>BUFFER+4 ;Basis des ersten 
STA PTR ‚Eintrags: Byte BBdd4 
LDA #<BUFFER+4 
STA PTR+Ll 
LDA BLOCKI ;Header überspringen, 
BEQ NOTFOUND ;wenn 1, DIR-Block 

# 

NXTFILE: LDY FNAME ‚Namenslänge File 

SCAN: LDA FNAME,Y ;‚Name des Files 
CMP (PTR),Y 
BNE NOTFOUND 
DEY ;Vergleich ohne 
BNE SCAN ‚die Namenslänge 
LDA {PTR),Y ;Namenslänge+SType 
AND #$ßF ‚SType maskiert 
CMP FNAME,Y 
BEQ GOTFILE 

* 

NOTFOUND: DEC FCOUNTER ;alle Files dieses 
BEQ BLOCKEND ;Blocks verglichen? 
KDAZPTE mern, 

CLCG ‚nächster Bintrag 
ADC ELEN 

STR 

BCC NXTFILE 

ING PTR+Ll 

BNE NXTFILE ‚"always" 

* 

BLOCKEND: LDA ECOUNT ;neuer Zähler für 
STA FCOUNTER ;den nächsten Block 
INC BLOCK1 ulgBlock” zurueck 
JSR DIRREAD ‚nächster Block 
BEQ NXTBLOCK ;nach BUFFER 
JMP BADFNAME ;"..File not found" 

* 

GOTFILE: JSR MLICLOSE ;CLOSE der DIR 
LDY #$11 ‚Bytes $11/12 im 
LDA (PTR),Y ;‚File-Bintrag sind 
TAX ‚die Nummer des 
INY ‚ersten File-Blocks 
ERA (PER) .N 

GOTVDIR: STX RBLOCK ;Einsprung für VolDIR 
STA RBLOCK+1 
STX WBLOCK ;WRITE wird 
STA WBLOCK+1 ;mit geändert! 

JSR GOTUNIT ;‚Unitno => Sx,Dx 
JMP DORW ‚liest den Block 
* 
BLOCKl: DS 1 ‚Flag: "DIR Block" 
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PRodos 9.4 


1834: 367 ELEN: DS 1 ;Eintragslänge in der DIR 1BFA:68 8 PLA ‚wird gespeichert 
1935: 368 ECOUNT: DS 1 ‚Anzahl Einträge/DIR-Block | 1ÖFB:8D 39 11 g STA XMONRTS+1 
1936: 369 FCOUNTER: DS 1 ‚Eintrags-Zähler 1ÖFE: 19 * 
1637: 370 * | 1dFE:A2 8® il LDX #89 ‚SAVE von CMDSTR, 
1037:208 Od BF 371 DIRINFO: JSR $BFOB GET FILE INEO für die 1199:BD Bd 82 12 SCMDSTR: LDA CMDSTR,X ;der Monitor benutzt 
1B3A:C4 372 DFB $C4 ;DIR "vor" dem File 11B3:9D Bd 26 13 STA EDITEND,X ;ebenfalls $296... als 
1B3B:3BE 19 373 DW INFOBLOCK 1196:E8 14 INX ;‚Input-Buffer! 
193D:6% 374 RTS 1187:DB F7 15 BNE SCMDSTR 
193E:8A 375 INFOBLOCK: DFB 1% ;1d Parameter 1189: 16 x 
1d3F:ABd 82 376 DW PATH ‚Pathname zur DIR 1189:28 5B BB Ir JSR DOCR 819 <CR> 
194]: 377 Ds 4 ;ACCESS, F-&AUX-Type 118C:A9 1C 18 LDA #>MONRTS ;Rücksprungadresse 
1945: SiSsolırE2 Dee ‚Storage Type 118E:8D F9 93 19 STA YVEC ;zu EDIT in den 
19486: 379 DS 19 ‚restliches INFO 1111:A9 11 2B LDA #<MOÖNRTS  ;Ctrl-Y Vektor 
1958: S38ß * 1113:8D FA 03 21 STA YVECHL 
1050:20 BO BF 381 DIROPEN: JSR $BFß6 ;OPEN der Directory 1116:28 88 d6D 22 JSR DOSCONN ;DOS anhängen 
1853:C8 382 DFB $C8 1119:4C 69 FF 25 JMF MONITOR SIRESESEGERT-N 
1854:57 19 383 DW OPENBLOCK elle 24 * 
1056:6® 384 RTS 11l1C:28 7D 8b 25 MONRTS: JSR DISCONN ;DOS wieder ab 
1957:03 385 OPENBLOCK: DFB 3 ‚3 Parameter 1l11F:A2 90 26 LDX =d9 ;RESTORE CMDSTR 
1058:Aßd 02 3865 DW PATH ;Pathname zur DIR | 1121:BD ®8 26 27 RCMDSTR: LDA EDITEND,X 
1B5A:90 26 387 DW EDITEND ‚Buffer: Programmende 1124:9D 98 82 28 STA CMDSTR,X ;von EDITEND nach 
1850: 388 OREFNO: DS 1 ‚Returnte Refno 1127:E8 29 INX 5288 
1®5B: 389 + 1128:D$ F7 3% BNE RCMDSTR 
105D:2B OB BF 39 DIRREAD: JSR $BFOß ;READ der Directory 1128: 31 «* 
1969:CA 391 DFB $C0A | 1122 An 5911 32 LDA XMONRTS+1 ;RESTORE der 
1861:64 19 392 DW READBLOCK 112D:48 33 PHA ‚RTS-Adresse 
1963:6% 393 RTS l12E:AD 38 11 34 LDA XMONRTS ;innerhalb von EDIT 
1864: 84 394 READBLOCK: DFB 94 ‚4 Parameter 1131:48 35 PHA 
| 1065: 395 RREFNO: DS 1 ;‚Refno von OPEN 1132:40 3A 113 36 JMP REPRINT ;RESTORE Bildschirm 
| 1966:09 20 396 DW BUFFER ‚Ziel ist BUFFER 1a 57 * 
1868:08 2 397 DW $B209 ;Request: 1 Block 1135:4C AA dA 38 MÖNERR: JMP CMDERR 
1B6A: 398 DS 2 ‚Transfer Count 138: 39 XMONRTS: DS 2 ;‚RTS (intern) 
186C: 399 %* ee AD * 
1086C:28 BB BF ABB MLICLOSE: JSR $BFßB :CLOSE aller Files 113A:28 BD 88 41 REPRINT: JSR TITLE ;Neudruck des 
1B6F:CC adl DFB $6G 113D:28 75 19 42 JSR PRINFO ‚Bildschirms 
1870:73 18 402 DW CLSBLOCK 1149:AD AE GC 43 LDA BPLINE ‚Bytes per Line 
1872:60 403 RTS 1143:29 5B 11 44 JSR SETDUMP ;‚DUMP BUFPER 
1073:91 454 CLSBLOCK: DFB Pl ;‚l Parameter 1146:29 47 OB 45 JoR shIlve21 :WTAB22, HTAB 1 
1974:99 495 DFB 9% ;‚Refno ®8 => ALL 1149:28 2D 89 46 JSR RTYP2 ;CMDSTR {alt} 
iNoase: aü6 * 114C:4C 1C 89 A’? JMP RETYPE ;‚CMDSTR (neu) 
In7B: 497 Beer 114F: 48 * 
1975: ABS x 114F: Sl KrrKrerkerer 
1975:9 83 a9 PRINFO: LDA #3 ;für 892: VTAB 3 l14F: 52 *---QUIT--—* 
1877:AB 4 41® LDY #4 ;für PDUMP 114F: 53 Krk 
1879:2C SB Bc All BIT PRINTER l14F: 94 &* 
187C:38 99 Al2 BMI PINFOL ;<CR> und INFO 114F:28 AF GB 55. BULL: =JSR SETV22 ;VTAB 22 
197E:ABd 80 413 LDY +99 ‚für Screen: 4 Spaces 1152:28 9C BB 56 JSR CLEOP 
1B88:2C 9A GC 414 BIT IS4 1155:4C 98 ®D 5 JMP EXIT ;DöS Kaltstart 
1083:19 82 415 BPL PINFOlL 1158: 58 * 
1985:A9 92 416 LDA #2 :für 492: VTAB 2 1158: 68 CHN ED.FUNGS2.TXT 
1887:28 55 BB 417 PINFOl: JSR SETVTB 
1B8A:28 A5 1d 418 JSR PINFO2 insouUree Slot,z. ED.FUNCS2.TXT1 
1B8D:AD 1A ÖF 419 LDA RBLOCK+1 ;und Blocknummer 
1898:Ac 19 OF 429 LDY RBELOCK 1158:4C AA BA 1 GETVAR: JMP CMDERR 
1693:20 19 BB 421 JSR PRTAY ;Blocknummer 115B:69 2 SETDUMP: RTS ;Tenp! 
1096: AB 29 422 LDY #INFO2-INFOI 115C:69 3 DUMP: RTS ‚Temp! 
1098:20 A5 1B 423 JSR PINFO2 ‚'"Target Slot..." 115D: 4 * 
1B9B:AD 27 BF 424 LDA WBLOCK+l ;und Blocknummer 115D: 5 CHN ED.CMDS.TXT 
1P9E:AC 26 OF 425 LDY WBLOCK 
1BAl:2B 19 OB 426 JSR PRTAY ED.CMDS.TXT1 
18AA:69 ART RTS 
1845: 428 x 115D: I PAGE 
1P45:B9 Bl 1ß8 429 PINFO2: LDA INFOL,Y 115D: 2 skaakakalaaklk 
1BA8:Fd 66 439 BEG PINFOS | 11 5D: a *---C0MMANDS-—--+ 
18AA:20 ES BA 431 JSR PRCHAR | SD: Ar 
1BAD:C8 432 INY 115D: I %* 
1ßAE:D® F5 433 BNE PINFO2 | 115D: 6 CMDS: EQU = 
1BB0:69 434 PINFOZ: RTS 115D:CH T ie ‚Lädt den ersten Block 
1681: 435 + 115E:28 BF 8 DW ATFILE ‚eines Files 
1ÖBl:Aß AB AB 436 INFOL: ASC ' Source: S' 1169:D8 9 AaSc 'X' ‚MONITOR-Aufruf 
1BBE:B6 AC CA 437 SSLOT: ASC '6,D!' ;INFOl: 4 Spaces 1161:F6 19 19 Dw  XMON 
1BC1:Bl AB AB 438 SDRIVE: ASC '1 Blockno: $' 1165.D1 11 Ast 'Q' ‚Programm-Ende 
1909: 99 439 DFB #9 ;SDRIVE: 4 Spaces 1168A4-An7 1] 12 Dw QUIT 
1ÖD1:AQd Aß Ad 449 INFO2: ASc ! 1 1166 :D2 13 ASC 'R’ ;Read Block/Prefix 
18DA:DA El F2 44l ASC "Target: S' ;INFO2: 9 Spaces 1167: 14 * 
1dE3:BS AC CA 442 TSLOT: ASC '6,D' 1167:9B $D 15 DW READ 
1BE6:Bl AB AB 443 TDRIVE: ASC '!ı Blockno: 5$' | 1169:77 15 ASt WM ‚Write Block/Prefix 
16F5:00 444 DFB 6ß ‚TDRIVE: 4 Spaces 116A:A3 BD Ir DW WRITE 
1dF6: 445 x 1160: 18 * 
1F6: 446 er eER BBor: 28 LCMD: EQU *-CMDS 
10F6: 447 % | 1160: 21 * 
1BF6: 448 CHN ED.FUNCS1.TXT 1180. 24. ek EEE Er 
M65G: 25 * 
ED.FUNCS1.TXT1 A280: 26 BUFLEN: EQU MAXBUF«$190 
116C: 27T %* 
1ÖF6: n PAGE 2ö08: 28 BUFFER: EQU $2098 
1®F6: 2 RR | 22900: 29 HLBUF: EQU BUFFER+BUFLEN 
1BdF6: 3 *---MONITOR--—x 2408: 3Ö8 FNBUF: EQU HLBUF+BUPFLEN 
1PF6: Leer 2508: 31 FNMASK: EQU PNBUF+$1BB 
1ßF6: 5 * 2600: 32 EDITEND: EQU FNMASK+$109 
1dF6:68 6 XMON: PLA ;‚die Returnadresse 116G: 33 %* 
168F7:8D 38 11 M: STA XMONRTS ‚innerhalb von EDIT 116C: 54 LST OFF 
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Verkauf Hardware 


Verkaufe Applehardware 
wegen Systemumrüstung an Pri- 
vat von Privat. 

Michael Sprengel, 

Amselweg 4, 7903 Laichingen 3 


Notverkauf IBM-Komp. PC 
(XT) HIT, 2 Laufw., Monitor, Soft- 
ware; NP 3900,-, VHB 3500, — 
Tel. 06231/7467 


Apple II+, 22W, c+r: 1650. - 


EPSON APL B: 80,- (+ Kabel) 
Tel. 0631/12831 
Apple lie mit integrierter 


10MB 3,5 Zoll H-Disk, 1 Laufwerk, 
1 Bubble Memory, Drucker If, 
RGB, 64K, Serial IF u. Apple Moni- 
tor (alles neu + original) zu VB DM 
5500,- 

EBV Elektronik, Tel. 069/ 785037 


Il+ Comp. 64K, 280, 802, 32K- 
Druckerkarte, 2 Slimline LW, Grün- 
Mon. Ext. 10er Block, viel Profisoft- 
ware + Literatur VHB 1200,- 

Tel. 061 47/8757 


Apple Il+, Original Profi-Sy- 
stem; Anfragen nur Tel. 051 05/ 
84661 ab 13.00 Uhr. Preis VHB 


Fernschreiberinterface am 
Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


Apple Ile, 128KB, Z80, Mon. 
Ill, SSC, 2 LW m/2 Contr., insg. 
’83KB, über 100 Disk., incl. 
Handb., VB DM 4500, — 

Tel. 02582/1236 ab 18.00 Uhr 


Apple Ile, 2 Disk 140K, Moni- 
tor, 128K RAM, 80Z, Z80, Mouse, 
EPSON FX-80 + Software: WS, 
Db2, MP, PASCAL TURBO & MT 
+ FOR, COB, Quickfile, Mouse- 
paint Applewriter/DM 6000,- 

Tel. 040 - 551 1245 


Apple II K. 64K 498,— Moni- 
tor-BMG 250,-, 2 Teak FD-55F ä 
298,—, Erphi-Contr. 198,- 
Z80+80Z a 68,-, Softw. + Lit. 
Joyst. Tel. 0831/95558 


Verkaufe: APPLE-Zubehör 
Tel. 0621/7711604 nach 17 Uhr 


Apple Ilc + Joy. (orig.) + Soft. 
für DM 1900,—. T. 06421/45547 


IEEE-Karte mit Anleitung 


und Kabel DM 200,-. 
Tel. 05 11/51 3085 (abends) 
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Österreich: Apple Il+ orig., 
6A4K, 2 Apple-Laufw., Apple-Mo- 
nitor öS 18.000,-, Z80-K. (CP/M) 
u. Orig. VIDEX 80Z-Karte 6S 
4.000,-, EPSON MX-80-Drucker 
mit Grafikinterf. 6S 7.000,-, Joy- 
stick u. Literatur öS 2.000,-, 

Tel. 07223/31623 abends 


Apple II komp. 

64KB, 80 Zeich. Card. LW-Control- 
ler 1x40-2x80 Track, Parallel- 
intf. IBM-Look, abgesetzte Tastatur, 
Monitor VB 1900,—. 


Tel. 09122/81945 


Tastatur Operator Ile mit In- 
terface (400,-), Ramdisk mit 
Software (CP/M, DOS, PASCAL) 
IBS AP 17 (300,-), Typenraddruk- 
ker EPSON DX 100 (baugleich mit 
Borther HR 15) mit B+K-Centro- 
nix-Interface, Kabel und diversem 
Zubehör, voll angepaßt an Apple- 
works (1000,-) Tel. 02 21/7793 29 


Apple Il + Kompatibler, 780, 
MACRO-Befehle auf Tastatur mit 
Zahlenfeld, Preis: VS 

Tel. 02174/62302 abd. 


Apple llc, Monitor mit Stand, 2. 
Laufwerk, Z80-Karte und Software 
Kompl. DM 3200,- 

Tel. 02302/62467 


Apple Ile Monitor3 mit Stän- 
der, ?2-Laufwerke, grafikfähiges 
DR Interface 80Z 128KB PRODOS 
+ Editor Writer Ile #* DM 4000 xx 
Tel. 05021761183 


lle + Neue ROMs + 65002; 2 
LW; Uhr; Maus; getr. Tast.; Druk- 
ker; je 150 Handb. + Progr.; neuw. 
50% VB, Tel. 0228/67 7423 


Appie 96 E/A Slotkarte C 4* 
PIO 8255)! Für Meß- und Steue- 
rungsaufgaben! Info kostenlos ge- 
gen Freiumschlag. RS Elektro Ge- 
rätebau, Hinter den Hörsten 87, 
4992 Espelkamp 


Dot-Matrix-Printer, original |l, 
lioh 8510A, Binder 8510A, NEC 
8023A, div. Zusatzkarten Apple- 
Compatib. 

A.Böck, T.02102/686 10, Ratingen 


Macintosh 128 auf 512KB 
DM 299,-. Fa. Schlösser, Tel. ab 
17.00 Uhr, 089 - 9858 89 





Suche — defekte — oder — 
nicht mehr gebrauchte — 
Computer und Peripherie. 

Chiffre Nr. P 1008 


Apple Il Graphics Tablet ge- 
sucht bis DM 1000,-. 
Tel. 030/2114172 


| Verkauf Software 


Software Uhr für Apple |Il+, e, 
c, Zeitschaltmöglichkeit Diskette + 
Anleitung DM 25,- Oecking 

Tel: Do. 02317/391920 


DEUTSCHSPRACHIGES 
APPLESOFTBASIC 

100 % KOMPATIBEL-Wahlweise 
zum Rom basic- in 16K-Karte + 
BEFEHLSED. Erstellen Sie Ihr ei- 
genes Basic. Ab jetzt spricht der 
Computer Ihre Sprache! Diskette 
DM 39,- bei 

Thies Martens, Ernestinenstr. 17, 
2300 KIEL 14, 1. 04831/735353 


Applewriter Ile, orig. Disketten 
u. Handbücher (AW + TKS), Preis 
VS - Tel. 0203/76 7499 


Spitzensoftware für Apple Il 
z.B.: Fileschutz: DM 50,-, Fuß- 
balltabellenverwaltung: DM 30,- ... 
Info (0,80 DM) bei W. Rittmeyer, 
Wehrbruchweg 30, 4060 Viersen 1 


Hardcopy in UCSD-Pascal, 
voll menügesteuert, druckt von 52 
x 67 mm - 176 x 211 mm - fast — 
stufenlos. Bis zu 3 Grafiken ne- 
beneinander möglich. DM 45,— 
Prause, Neumannstr. 9, 

5600 Wuppertal 2 


The Apple Ilc Reference 
Manual, 2 Bände, nagelneu, Neu- 
preis DM 195,- zum Preis von DM 
100,—. Tel. 061 98/8145 


- —- — STOCKMASTER Il —— — 
Das Apple Il-Programm für echte 
Börsengewinne: 485,— DM/SFr bei: 
Töngi Computer-Praxis, Aspeltstr. 4, 
D-6500 Mainz. 

für die Schweiz: Denton Consul- 
tants AG, Auwisstr. 17, CH-8127 
Forch/Zürich. 

Jane (Original), Deutsche 
Version DM 170, - 

Tel. 02226/3008 


WINDOW-Technik unter 
APPLESOFT für alle APPLE Il- 
Typen DM 35,-, Info DM 1,- Porto 
von Ernst Heinz, Waldgürtel 7, 
5060 Berg. Gld. 1 


Erphi+Focu Benutzer Disk- 
reditor zum Bearbeiten von Dis- 
ketten 55,—. H. Eschborn, Zehnthof 
2, 6522 Osthofen, T. 06242/4006 


Apple Il: Public Domain, 
DFÜ-Progr. Kermit: Je Volume DM 
15,—- Lehrerprogr., Graphiksprache 
„Minilogo“. Gratisinfo: 

Fa. Waltraud Muhle, Waldwinkel 3, 
2105 Seevetal 3 


PEEkER 449994 
Börse 


Topsoftware zu Niedrigst- 
preisen z.B.: Ballblazer: DM 110,- 
Info (0,80 DM) bei W. Rittmeyer, 
Wehrbruchweg 30, 4060 Viersen I 


| Ankauf Software: 





D BASE Il Prog. f. KD-Datei 
mit Druck + Mailmerge, Übernah- 
me f. Apple II XEBEC-10MB 
Festpl. CP/M Start VP. 

P. Lehmann, P.O. Box 701161, 
2000 Hamburg 70 


UCSD-PASCAL, CPM, Print- 
shop, Uhrenkarte, Apple- 


Works??? Tel. 065 71/65 71 





Verschiedenes 





APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o 
ae.) sowie Zusatzkarten und 


Disk-Drives führt unser Speziali- 


stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642 aaad 


Systemwechsel Superpreise 
alles neuwertig! Accelerator Ile 
450,-, Word-Juggler (Dt. Textv. 
incl. Wörterb.) 450,-, Ilc 1700,-, 
Imagewriter 800,-, 10 MB-HD 
2500,-; Gernot Eller, 

Tel. 0043-0 55 13/6 7083 


Ihre Erphi-Vertretung für die 
Schweiz: Beltronic, im 
Chapf, 8455 Rüdlingen, Tel. 
01867 31 41, Telex 825981. 


PASCMAK: Suche Vertriebs- 
partner und Interessenten für 
mein neues Immobilienmakler- 
Programm. Heinz, Waldgürtel 7, 
5060 Berg. Gld. 1 


1! Da gibt's was umsonst !!!! 
4 x im Jahr den neuen Katalog. 
Bühler Elektronik, Postfach 32, 
7570 Baden-Baden 


1. Stuttgarter Privat-Micro- 
Computer-Flohmarkt am 
4.5.86 in Stuttgart. Teilnahme ge- 
gen Unkostenbeitrag, Anmeldung 
+ Info Tel. 0711/6071852 + 
60650 


Peeker 5/86 


Für Ihre Unterlagen 
Abonnement bestellt 


am: = 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag GmbH, Postfach 
102869, 6900 Heidelberg innerhalb 
von 7 Tagen widerrufen kann. Zur 
Fristwahrung genügt die rechtzeitige 
Absendung des Widerrufs (Datum 
des Poststempels). 


Peeker 
Leserservice 


Postfach 102869 
6900 Heidelberg 


ß 
: 
r- 


Für Ihre Unterlagen 
Folgende Bücher bestellt: 


am: 
bei: 


Peeker 
Versandbuchhandlung 


Postfach 102869 
6900 Heidelberg 1 


Wa Buch-Karte 





Für Ihre Unterlagen 


Folgende Disketten 
und Programme bestellt: 


am: 

bei: 

Peeker 
Softwareabteilung 
Postfach 102869 
6900 Heidelberg 1 


a Software -Karte 
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Ja, ich möchte Peeker abonnieren. 

Lieiern Sie mir Peeker ab Ausgabe ............... . zum Jahresbezugspreis 
von zZ. Zt. DM 72,- (Inland) inkl. MwSt. Die Lieferung erfolgt frei Haus. Porto, Ver- 
packung und Zustellgebühren übernimmt der Verlag. Der Jahresbezugspreis für 
das Ausland beträgt z. Zt. DM 72,- plus DM 18,—- Versandspesen. 


x 


Datum 1. Unterschrift 





Bitte lesen! 


Vertrauensgarantie: Ich habe davon Kenntnis genommen, daß ich die Bestellung schriftlich durch Mitteilung an den 
Dr. Alfred Hüthig Verlag GmbH, Postfach 102869, 6900 Heidelberg innerhalb von 7 Tagen widerrufen kann. Zur 
Fristwahrung genügt die rechtzeitige Absendung des Widerrufs (Datum des Poststempels). 


x 


Datum 2. Unterschrift 





Verlagshinweis: Das Abonnement verlängert sich zu den jeweils gültigen Bedingungen um ein Jahr, wenn es nicht 
2 Monate vor Jahresende schriftlich gekündigt wird, 


Wir können nur Bestellungen mit zwei Unterschriften bearbeiten. 
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Bitte senden Sie mir gegen Rechnung folgende Bücher: 


[1] Bühler, Applesoft-BASIC, [] Kehrel, Apple Assembler lernen, Bd. 2, 
3-7785-1094-0, DM 38,- 3-7785-1170-X, ca. DM 38,- 

LI Eggerich, dBase Il, Bd. 1, L) Schäpers, ProDOS Analyse, 
3-7785-1147-5, DM 39,80 3-7785-1134-3, DM 68,— 

L] Eggerich, dBase Il, Bd. 2, [I Schäpers, Bewegte Apple-Graphik, 
3-7785-0987-X, DM 39,80 3-7785-1150-5, DM 58,— 

[I Eggerich, dBase Il, Bd. 3, L[] Stiehl, Apple DOS 3.3, 
3-7785-0988-8, ca. DM 40,— 3-7785-1297-8, DM 28,— 

[) Gabriel, Applewriter, U) Stiehl, Apple ProDOS, Bd. 1, 
3-7785-1234-X, DM 35,- 3-7785-1098-3, DM 28,— 

[] Hagemüller, Microsoft-BASIC, Bd. 1, U Stiehl, Apple ProDOS, Bd. 2, 
3-7785-1038-X 3-7785-1036-3, DM 30,- 

I] Juhnke/Redlin, Apple Pascal, Bd. 1, [] Stiehl, Apple Assembler, 
3-7785-1246-3, ca. DM 40,- 3-7785-1047-9, DM 34, — 

LI Kehrel, Apple Assembler lernen, Bd. 1, [I Wassermann, Apple Ilc Handbuch, 
3-7785-1151-3, DM 38,- 3-7785-1157-2, DM 35,— 

Datum Unterschrift 
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Bitte senden Sie mir gegen Rechnung folgende Disketten: 


LI Peeker-Sammeldiskette, einzeln ProDOS-Editor 1.0, Programm, DM 98,- 
Disk#_____, Disk# MMU 2.0, Programm, DM 98,- 
Disk# _____, Disk# INPUT 2.0, Programm, DM 98,— 


Peeker je Disk DM 28,- (einzeln) 


[I Peeker-Sammeldiskette, 
im Fortsetzungsbezug 
ab Disk# ______ 
(Mindestbezug 6 Disketten) 
Preis je Disk DM 20,- 


Apple DOS 3.3, Begleitdisk., DM 28,- 

ProDOS, Band 1, Begleitdisk., DM 28,- 
ProDOS, Band 2, Begleitdisk., DM 28,- 
Apple Assembler, Begleitdisk., DM 28,- 


Softbreaker 1.0, Programm, DM 48,- 
DB-Meister, Programm, DM 290,— 
Superplot, Programm, DM 48,— 
Superquick, Programm, DM 48,— 
Turtle Graphics, Programm, DM 98,— 
Disk 40, Programm, DM 48,— 
Kyan-Pascal 2.0, Programm, DM 170,- 
Fast-Writer, Programm, DM 98,- 


aleJe]l zer erelerenele 


ehaleae 


Datum Unterschrift 









Ich wünsche jährliche Berechnung durch: 


[I Verlagsrechnung [1] Abbuchung von 
meinem Bank- bzw. 


Postscheckkonto 
Bank/PschA 
Bankleitzahl 


Kto,-Nr. 


Straße 


PLZ/Ort 


Telefon mit Vorwahl 


Karte bitte vollständig ausfüllen 


Vorname, Names 


PLZ/Ort 


Telefon mit Vorwahl 


POSTKARTE 
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Leserservice 


Dr. Alfred Hüthig Verlag GmbH 
Postfach 102869 
6900 Heidelberg 


POSTKARTE 


Peeker 
Buchabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


POSTKARTE 


Peeker 
Softwareabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,— 

ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) - Scrollflag (starre oder dyna- 
mische Maske) - Ctrilag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Appte Ile oder IIc; fer- 
ner Apple II+ im 40-Zeichenmodus 


MMU 2.0 


Memory Managements 
Utilities 

für die Apple lie 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98, — 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0”- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder IIc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lle 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen, 

Mit Softbreaker unterbrochene Programme 
werden komplett, d.h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte, nicht Ilc, nicht neue ROMs 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 


Superschnelle 
Bildschirmausgabe 








in Apple-Pascal 


von Dr. Wolfgang Braun 


Die hier vorgestellten externen Proze- 
duren ermöglichen es in Apple-Pascal- 
Programmen, Texte und Daten wesent- 
lich schneller als mit der systemeige- 
nen WRITELN-Prozedur auf dem 80- 
Zeichen-Bildschirm auszugeben. 
Kenntnisse in Assembler sind dazu 
nicht erforderlich. Erfahrungen im Um- 
gang mit dem Apple-Pascal-System zur 
Einbindung der hier abgedruckten 
Routinen in eigene Programme sind 
von Vorteil. 


Solche Prozeduren sind vor allem dann 
interessant, wenn häufig Daten, Texte, Ta- 
bellen oder längere Menüs usw. auf dem 
Bildschirm ausgegeben werden. Es kann 
sehr lästig sein, wenn man ständig einige 
Sekunden warten muß, bis der Bildschirm 
den gewünschten Text enthält. Die 
WRITELN-Prozedur, oft noch gekoppelt 
mit einer GOTOXY-Anweisung zur Cur- 
sorpositionierung, arbeitet recht langsam. 
Schreibt man damit eine 80 Zeichen lange 
Zeichenkette in die 24 Zeilen des Bild- 
schirmes, so vergehen dabei 3.6 Sekun- 
den. Eine der im folgenden beschriebenen 
Prozeduren benötigt für die gleiche Aufga- 
be nur einen Bruchteil dieser Zeit, nämlich 
0.1 Sekunden. Diese Prozeduren sind 
speziell zur Verwendung in selbst erstell- 
ten Programmen gedacht. Man beachte 
jedoch, daß aus Gründen der Geschwin- 
digkeit kein Scrollen implementiert wurde, 
so daß nur starre Bildschirmmasken aus- 
gegeben werden können. 


Pascal-Programme, in die diese externen 
Prozeduren eingebunden worden sind, 
laufen nur auf einem Apple Ile mit 80- 
Zeichenkarte (mit oder ohne 64K-Spei- 
chererweiterung) oder IIc. 
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Im folgenden wird die Anwendung dreier 
externer Assemblerroutinen beschrieben, 
mit denen es in Pascal-Programmen mög- 
lich ist, Zeichenketten, Chars oder Inte- 
gerzahlen in den Modi normal oder invers 
an beliebigen Positionen auf dem Bild- 
schirm zu plazieren. Die Verwendung der 
WRITELN-Prozedur und auch aller ande- 
ren Pascal-Prozeduren wird dadurch nicht 
berührt. Zunächst wird die Syntax und 
dann die Einbindung dieser Routinen in 
Pascal-Programme erläutert. Um die Na- 
men der Prozeduren kurz und einprägsam 
zu gestalten, wurden dem Buchstaben P 
drei weitere Buchstaben zur Verdeutli- 
chung der jeweiligen Funktion nachge- 
stellt. Die Prozeduren haben sich nach 
häufiger Anwendung auch in langen und 
komplexen Pascal-Programmen bestens 
bewährt. Sie arbeiten in beiden Pascal- 
Versionen 1.1 und 1.2 einwandfrei. 


1. Ausgabe von Zeichenketten 


Die Ausgabe von Zeichenketten geschieht 
mit der Prozedur der Form 

PSTR (M,X,Y,STR); 

Die Größen M, X, Y und STR haben dabei 
folgende Bedeutung: M ist entweder O0 
oder 1 oder eine Variable, die nur diese 
beiden Werte annehmen darf. Bei M=O 
erfolgt die Ausgabe im Modus normal, bei 
M=1 erfolgt sie im Modus invers. X und Y 
sind die Spalten- bzw. Zeilennummer des 
ersten Zeichens der Zeichenkette auf dem 
Bildschirm. Die Wertebereiche sind die 
gleichen wie beim systemeigenen GOTO- 
XY(X,Y)-Befehl. STR ist eine Zeichenkette 
oder String-Variable. Die Zeichenkette 
kann leer sein und darf höchstens 80 Zei- 
chen enthalten. Sie darf über den rechten 
Rand des Bildschirms nicht hinausreichen. 


4 vcsd 4 


Beispiel: Die Prozedur 
PSTR(1,7,15,’Test‘) 

gibt den Text „Test“ in inverser Darstel- 
lung auf den Bildschirm aus. Der Buchsta- 
be „T* befindet sich in der 8. Spalte und 
16. Zeile. Anstelle der Zahlenwerte kön- 
nen natürlich auch entsprechend verein- 
barte Variablen treten. Der Cursor wird 
durch diese und auch die weiter unten 
beschriebenen Prozeduren nicht bewegt. 
Falls dieser auf dem Bildschirm stört, muß 
er durch eine GOTOXY-Anweisung auf ei- 
ne geeignete Position gesetzt werden. 

Es sei an dieser Stelle darauf hingewie- 
sen, daß der Programmierer selbst darauf 
achten muß, daß die Werte in den angege- 
benen Bereichen liegen. Der Versuch der 
Ausgabe einer über den rechten Bild- 
schirmrand hinausgehenden Zeichenkette 
oder die Verwendung unzulässiger Werte 
für M, X oder Y führt zu unvorhersehbaren 
Ergebnissen. 


2. Ausgabe von CHARS 


Die Ausgabe einzelner Zeichen erfolgt 
durch die Prozedur 

PCHA (M,X,Y,CH); 

M, X und Y haben die gleiche Bedeutung 
wie bei der vorangegangenen Prozedur. 
CH steht für ein einzelnes Zeichen oder 
für eine Variable vom Typ CHAR. Als Bei- 
spiele seien PCHA (0,4,17,'X') bzw. PCHA 
(0,4,17,CHR(88)) genannt. Das Zeichen 
„X“ erscheint mit den entsprechenden 
Koordinaten auf dem Bildschirm. 

Einzelne Buchstaben könnten natürlich 
auch als Zeichenkette mit der Prozedur 
PSTR ausgegeben werden, so daß die 
Prozedur PCHA scheinbar überflüssig ist. 
Der Wert einer Char-Variablen kann je- 
doch mit PSTR nicht ausgegeben werden, 
weil der Compiler an der Stelle von STR 
eine String- und keine Char-Variable er- 
wartet. Man kann zwar den Wert einer 
Char-Variablen in eine String-Variable der 
Länge | übertragen, aber genau dieser 
Umstand kann mit Hilfe von PCHA vermie- 
den werden. 


3. Ausgabe natürlicher Zahlen 


Zur Ausgabe von ganzen positiven Zahlen 
steht die Prozedur der Form 

PINT (S,M,X,Y,INT); 

zur Verfügung. M, X und Y haben wieder 
die übliche Bedeutung. S ist eine ganze 
Zahl zwischen 1 und 5 oder eine entspre- 
chend vereinbarte Variable. S bedeutet die 
Anzahl der auszugebenden Stellen ein- 
schließlich führender Leerstellen. Führen- 
de Nullen werden durch Leerzeichen er- 
setzt. 

INT ist eine Zahl zwischen -32767 und 
32767 oder eine entsprechend vereinbar- 
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te Variable. Damit lassen sich ganze positi- 
ve Zahlen rechtsbündig ohne Vorzeichen 
ausgeben. Das erste Zeichen der Zahl 
(Leerzeichen oder Ziffer) hat die Koordina- 
ten X und Y. Die Prozedur PINT 
(4,0,17,2,123) schreibt die Zahl 123 mit 
einer führenden Leerstelle an die ge- 
wünschte Position. Ist die Zahl S der aus- 
zugebenden Stellen kleiner als die Zahl 
der Ziffern, so werden die S rechten Zif- 
fern ausgegeben. Will man eine Zahl im 
Bereich 32768 bis 65536 ausgeben, so ist 
statt dessen die Differenz dieser Zahl und 
65536, also eine negative Zahl für INT 
einzusetzen. PINT (5,0,0,7,-1234) gibt 
den Wer 64302 aus, denn -1234 = 
64302-65536. Die Ausgabe negativer 
Zahlen oder Zahlen mit Vorzeichen ist mit 
dieser Prozedur nicht möglich. 


4. Einbindung der Routinen 


Vor der Einbindung in Pascal-Programme 
muß der Assembler-Quelltext PRINT.AS- 
S.TEXT im Pascal-Editor als Textfile ein- 
gegeben und danach mit dem Assembler 
in 6502-Objektcode assembliert werden. 
Nach dem erfolgreichen Assemblieren 
speichert man den Programmtext (Quell- 
code) und den Maschinencode (Objektco- 
de) mit Hilfe des Befehls S(ave unter 
einem beliebigen Namen, z.B. PRINT. 
ASS.TEXT bzw. PRINT.ASS.CODE, auf ei- 
ner Diskette ab. Dann kann mit dem Ein- 
binden des Maschinencodes in ein Pascal- 
Programm begonnen werden. 


4.1. als externe Assemblerroutinen 


In diesem Fall müssen die externen Pro- 
zeduren im Pascal-Programmtext selbst 
als solche deklariert werden. Die Form der 
Deklaration ersieht man am besten dem 
Demonstrationsprogramm DEMOPRINT- 
‚TEXT. Nach der Eingabe wird der Pro- 
grammtext compiliert. Der jetzt entstande- 
ne Programmcode ist aber noch nicht lauf- 
fähig, da der Maschinencode der Ausga- 
beroutinen noch eingebunden werden 
muß. Dazu ruft man den Linker auf und 
beantwortet die gestellten Fragen wie 
folgt: 


1. Host file? <Return> bzw. Name Ihres 
Programmes, falls es bereits compiliert 
und auf Diskette abgespeichert war, und 
dann erst <Retum>. 

2. Lib file? #X:PRINT.ASS <Return> 
(X=Volume-Nr.) 

3. Lib file? <Return>, da kein weiterer 
Code gelinkt werden soll. 

4. Map file? <Return> 

5. Output file? <Return> bzw. Name des 
Programmes 
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Wenn man bei 1. und 5. mit <Return> 
antwortet, dann liegt der Programmcode 
auf der Diskette als SYSTEM.WRK.CODE 
vor, der mit T{ransfer bzw. C{hange umbe- 
nannt werden sollte. Andernfalls befindet 
sich der Programmcode unter dem einge- 
gebenen Namen auf der Diskette mit der 
benutzten Volume-Nr. Dieser Code kann 
dann mit X(ecute gestartet werden. 


Der Nachteil dieses Verfahrens ist, daß 
dieser Einbindevorgang jedesmal wieder- 
holt werden muß, wenn das Pascal-Pro- 
gramm neu compiliert werden soll (z.B. 
nach einer Änderung des Programmes). 
Dem steht der Vorteil gegenüber, daß die 
eingebundenen Routinen im Pascal-Pro- 
gramm selbst integriert sind und die SY- 
STEM.LIBRARY nicht benötigt wird. 


4.2. als Library-Assemblerroutinen 


Bindet man den Objektcode der Ässem- 
blerroutinen in die systemeigene Pro- 
gramm-Bibliothek, die SYSTEM.LIBRÄARY, 
ein, so können die drei Ausgabe-Prozedu- 
ren von jedem beliebigen Pascal-Pro- 
gramm aufgerufen werden, ohne daß der 
Objektcode jedesmal wieder eingebunden 
werden muß. Lediglich am Beginn des 
Programmes muß dem System durch die 
Anweisung 


USES Unitname; 


der Name der neuen Bibliothekseinheit 
(Unit) mitgeteilt werden. Vorher muß na- 
türlich der Objektcode der Unit einmal in 
die SYSTEM.LIBRARY eingebracht wer- 
den. Um dies zu erleichtern, ist der Pro- 
gramm-Text der dazu erforderlichen Unit 
FASTPRINT.TEXT abgedruckt. 


Nach dem Compilieren der Unit wird in 
diese mit Hilfe des L{inkers nach dem 
gleichen Schema wie oben der Objekt- 
code PRINT.ASS.CODE eingebunden. 
Der dabei resultierende Code wird dann 
z.B. unter dem Namen FASTPRINT.CODE 
abgespeichert und mit Hilfe des auf der 
Diskette APPLE3: befindlichen Pro- 
gramms LIBRARY in die SYSTEM.LIBRA- 
RY eingebaut. 


Die nach dem Programmstart von LIBRA- 
RY gestellten Fragen beantwortet man 
dann folgendermaßen: 


1. Output Codefile > <x> <Return> 
(System.Library) 

2. Link Codefile > <#> <Return> (Sy- 
stem.Library) 

3. <=> (alle Units übernehmen) 

4. <N> (New file) 

5. Link Codefile > #X:FASTPRINT <Re- 
turn> (X=Vol.-Nr.) 


6. <Slot-Nr. von FASTPRINT in der obe- 
ren Tabelle> <Space> 

7. Slot to link into? <Nr. eines freien Slots 
in der unteren Tabelle> <Space> 

8. Mit <Q> Programm abschließen 

9. Notice? <Return>, falls kein Kommen- 
tar erwünscht 


Während dieses Vorgangs wird die Origi- 
nal-SYSTEM.LIBRARY durch die nunmehr 
um die Unit FASTPRINT erweiterte SY- 
STEM.LIBRARY ersetzt. Damit sind die 
drei Ausgaberoutinen ständig verfügbar. 
Programme mit der Anweisung USES 
FASTPRINT greifen beim Aufruf der obi- 
gen Prozeduren auf die SYSTEM.LIBRA- 
RY zu, die natürlich dann „online“ sein 
muß. 


5. Demo-Programm 


Das abgedruckte Demo-Programm DE- 
MOPRINT soll den Geschwindigkeitsvor- 
teil der drei Ausgaberoutinen gegenüber 
der WRITELN-Prozedur aufzeigen. Ver- 
gleichende Versuche haben ergeben, daß 
die PSTR-Routine zur Ausgabe einer Zei- 
chenkette ca. 35 (fünfunddreißig) mal 
schneller arbeitet als die WRITELN-Proze- 
dur mit der gleichen Kette. Dabei ist noch 
zu berücksichtigen, daß mit der WRITELN- 
Prozedur nur relativ zur laufenden Cursor- 
position ausgegeben werden kann. Wollte 
man damit auch noch bestimmte Bild- 
schirmpositionen erreichen, so müßte 
noch ein GOTOXY-Befehl vorausgehen. 
Dadurch würde der Geschwindigkeitsge- 
winn zugunsten von PSTR noch deutlicher 
ausfallen. 


Kurzhinweise 


1. Zweck: 

Extrem schnelle Ausgabe von starren Bild- 
schirmmasken (ohne Scrollen); 

2. Konfiguration: 

Ile/c mit 80-Zeichenkarte (nicht II+, nicht 
Videxkartel); Pascal 1.1/1.2; Achtung: 
Beim Ilc bzw. Ile mit neuen ROMs werden 
statt inverser Buchstaben Mauszeichen 
angezeigt! 

3. Test: 

PRINT.ASS.TEXT assemblieren und DE- 
MOPRINT.TEXT compilieren, dann PRINT. 
ASS.CODE und DEMOPRINT.CODE Iin- 
ken zu z.B. SYSTEM.WRK.CODE, der mit 
R{un gestartet werden kann. Zum Einbin- 
den in Library s. Aufsatztext. 

4. Sammeldisk: 

PRINT.ASS.TEXT 

DEMOPRINT.TEXT 

FASTPRINT.TEXT 

(Mit GETDOS von Sammeldisk #15 auf 
Pascal-Diskette konvertieren.) 
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PRINT.ASS.TEXT START JMP PROG 
:Tabelle der Adressen der ersten Stellen jeder der 24 Zeilen 
Beer ‚im BSp 
.. # COL® ‚WORD 409,489 ,5%9,580,699,689,709,780 
;* Externe Prozeduren zur * ‚WORD 428,4A8,528,54A8,628,6A8,728,7A8 
Hu schnellen Bildschirmausgabe * ‚WORD 456 ,4D6 ,556 ,5D$ ,659,,6Dß,, 759, 7D® 
= in Apple-PASCAL 1.1/1.2 * 
‚” Dr.W.Braun / Dezember 1984 * :Werte vom Stack in die Hilfsregister übernehmen 
® * 
MEETS ZETZSSSS EST SSZETZEST EFT ESS EETIIEETSEID PROG POP RET :Rückkehradresse nach RTS 
FOP RETURN :Rückkehradresse nach PASCAL 
POP ADRSTR ‚Adresse String/Char/Integerzahl 
skkakkakaer Softwareschalter srarHHrEr* PLA R 
STA YKOOR :Y-Koordinate 
STOREBB .EQU Hcadı ‚aktiviert die 8ß-Zeichen-Karte Aa ;Highbyte der Y-Koordinate = 9 
MAINRAM .EQU 9C954 ‚aktiviert $B400-$07FF Pagel (MAINRAM) SPA XKOOR -X-K Ar ; 
AUXRAM ‚EQU 90855 ‚aktiviert $B400-$Ö7FF Page2 {AUXRAM) oo ‚Arkoorainate 
STATUS ‚EQU ®C91C ;Zustand von MAINRAM/AUXRAM PLA 
POP MODUS ‚Ausgabemodus übernehmen 


Sekten Hilfsregister eeeieeekkrcrr 


;Koordinaten im BSp nach der Formel (POS®) + X/2 bzw. (X-1)/2 


RETURN .EQU dpa ‚Rückkehradresse nach Pascal 
ADRSTR .EQU 002 "Adresse des Strings ;je nachdem, ob X gerade oder ungerade, berechnen 
YKOOR ‚EQU #904 ;y-Koordinate auf dem Bildschirn aM i u 
XKOOR .EQU #885 ;x-Koordinate auf dem Bildschirm ei a Re <= 24 
XKOORH .EQU BAde :Hilfsregister a 2 Den 
ZAHL ‚EQU Mr ‚Zahl der zu schreibenden Zeichen s | 
POSd ee A ‚Adresse der ersten Spalte a2 LDA COLB,Y ;Adresse des ersten Zeichens der Zeile 
Bildechirmepelcher (BSp) STA POS ;in BSp nach POSPß/POSO+l setzen 
POSX .EQU #BBA ‚Adresse des ersten Zeichens INY 
i Ä LDA COLB,Y 
‚des Strings im BSp. STA POSÖ+HL 
INT .‚EQU BBBc ‚Adressen der auszugebenden 
‚Int ahlen : ® ß Ä 
LEAD EQU HB11 ne LDA XKOOR ;jetzt X-Koordinate berücksichtigen 
DICIT  ,EQU HB12 ‚Hilfsregister Es PRENe a Teer 2un, ee 
MODUS .EQU #813 ;Ausgabemodus: =Normal l=Invers Be ce ee ns FR e 
STELLEN .EQU #615 ;Zahl der auszugebenden Stellen een En 1 Senn 
RET .EQU 0617 ;RTS-Adresse an 
CLC ‚addieren 
asien Makro-Inflinitionen eessssease LDA POS® 
ADC XKOOR 
STA POSX 
‚MACRO POP 
PLA LDA POS$+1 
STA 21 ADC +99 ;Highbyte von X stets 
PLA STA POSX+1 ;jetzt steht in POSX/POSX+1 die 
STA 21H ;‚Anfangsadresse des Strings im B5p 
ENDM PUSH RET ;Rückkehradresse für RTS auf Stack 
RTS ‚schieben 
‚MACRO a .PROC SUBROUT2 
LDA Alt | ‚DEF PASCAL 
PHA 
LDA 21 ;Wiederherstellung der alten Softswitches MAINRAM/AUXRAM 
Bu :und Rückkehr nach PASCAL 
„ENDM 
PASCAL POP RET 
„MACRO MALZ2 PLA ;Speicherinhalt von STATUS 
ASL %1 
ROL %l+l ‚Alte Schaltersteilung von AUXRAM/MAINRAM 
‚ ENDM ‚wiederherstellen 
:MACRO AUSGABEMODUS BMI PACE2ON 
| STA MAINRAM ;PAGEL(MAINRAM) on=>enable MAINRAM 
‚Ausgabemodus festlegen | JMP AUS 
PAGE2ON STA AUXRAM :PAGE2 (MAINRAM) on=>enable AUXRAM 
LDA MODUS AUS PUSH RETURN ;zurück nach PASCAL 
BEQ NORMAL 
RTS 
‚Inverse Ausgabe serkkkkerk Ende der Unterprogramme ekssssnkiskkisisiikiitikitk 
En ne ‚Opcode von AND ;kkkskrere Prozedur PSTR(N,X,Y:INTEGER; CH:STRING); ##*#***%* 
JMP LBL1 ‚PROC PSTR,4 ;‚4 Variablen zur Übergabe 
‚REF START 
;Normale Ausgabe ‚REF PASCAL 
NORMAL LDA #99 ‚Opcode von ORA JSR START ;Ubernahme der Werte 
LDX #89 AUSGABEMODUS 
EBLI STA CHA :Normal: ORA #89, Invers: AND #7F STA STORES® ;8ß-Zeichen-Karte aktivieren 
STX CHA+1 LDA STATUS ;‚Schalterstellung auf Stack retten, 
‚ ENDM PHA ;um nachher wieder die alte 
‚Position herzustellen zu können 
ker Unterprogrammsammlung FrrrKrkFrr%* STA AUXRAM ‚enable PAGE2 (AUXRAM) 
LDA XKOORH 
‚PROC SUBROUTI LSR A ‚X auf Parität prüfen 
.DEF START BCC GERADE 
STA MAINRAM ‚enable PAGEL({MAINRAM); X ungerade 
;Übernahme der Werte vom Stack und Berechnung der Bild- GERADE LDA ADRSTR+I 
;schirmkoordinaten BNE STRING 
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STRING 


LOOP 


CHA 


PAGE1LON 
OK 


LEERSTR 





\ GERADE 


CHA 


TLSB 


TMSB 


LBL2 





;genau ein Zeichen im String 


LDA #@1 ein Zeichen 

TAY :damit Y=l 

STA ZAHL 

LDX #99 ‘nur zur indirekten Adressierung 
LDA ADRSTR ‚auszugebendes Zeichen laden 

JMP CHA ‚Zeichen ausgeben 


:mehr als ein Zeichen im String oder Leerstring 


LDY #99 ‘zur indirekten Adressierung 

LDX +99 ‘X zählt die Position im BSp 

LDA {ADRSTR),Y ;Zahl der auszugebenden Zeichen 
BEQ LEERSTR; ja, String ist leer 

STA ZAHL 

INY :Y ist Zählindex, beginnt mit Y=l 
LDA (ADRSTR),Y ;auszugebendes Zeichen laden 


ORA #989 ;‚damit Ausgabe normal 

STA (POSX),X ‚Eintrag in BSp 

LDA STATUS ‚Stellung der Softwareschalter prüfen 
BMI PAGELON ‚minus=>PAGE2 war on => enable PAGELI 
STA AUXRAM ‚enable PAGEZ (AUXRAM) 

INC POSX ‚Pointer auf nächste Position setzen; 


‚geschieht nur nach jedem zweiten 
;Zeichen; dazwischen wird AUXRAM/ 
:MAINRAM umgeschaltet 


JMP OK 

STA MAINRAM ;enable PAGEl {MAINRAM) 

CPY ZAHL ‚auszugebende Zeichenzahl erreicht? 
BNE LOOP ;‚verzweigen, wenn ungleich 

JSR PASCAL 

RTS 


‚PROC PCHA,4 ‚vier Werte zur Übernahme 


weasnaaae Prozedur PCHAIN,X,Y:INTEGER; CH:CHAR}; we....... 
| 


‚REF START : funktioniert wie PSTR mit 
‚REF PASCAL ‚Stringlänge 1 

JSR START 

AUSGABEMODUS 


STA STORES® 

LDA STATUS 

PHA 

STA AUXRAM 

LDA XKOORH 

LSR A 

BCC GERADE 

STA MAINRAM 

LDX #90 

LDA ADRSTR ‚Char laden 

ORA #89 ;Ausgabemodus festlegen 
STA (POSX),X ;:Char in BSp eintragen 
JSR PASCAL 

RTS 


| suussassse Prozödur PINTIS.M,X,Y, INT:INTEGER); #ennannse 


„PROC PINT,5 ; fünf Werte zur Übernahme 

‚REF START 

‚REF PASCAL 

;Nach Übergabe in START befindet sich die auszu- 
;gebende Zahl als Hexzahl in ADRSTR/ADRSTR+1. 
:Zuerst werden die fünf auszugebenden Ziffern be- 
‚rechnet und in INT, ucıw; INT+4 gespeichert. 
JMP LBL2 

;LSB der Zahlen 1,19,10®, 1000, 1@@9B9 

‚BYTE 81, ®A,64,ßE8,10 

;MSB der Zahlen 1,1®,1®®, 1089, 10809 


‚BYTE 99,00,09,03,27 


JSR START 

POP STELLEN :Zahl der auszugebenden Stellen 
AUSGABEMODUS 

DEC STELLEN ;Stellenzähler beginnt bei ® 


;SPACE laden und INT initialisieren 


LDA #829 
STA INT 
STA INT+1 





STA INT+2 
STA INT+3 
STA INT+4 


;Berechnung der fünf auszugebenden Ziffern. Nach 
‚Randy Hyde, "Assembly Language', S, 12-5 


LDX +94 
STX LEAD ;positiver Wert in LEITß 
BEGIN LDA #9Bß ;Zeichen 'Ö' laden 
STA DIGIT 
ZEHN SEC ‚Subtraktion vorbereiten 
LDA ADRSTR ;LSB der auszugebenden Zahl 
SBC TLSB,X 
PHA 
LDA ADRSTR+1 ;MSB der auszugebenden Zahl 
SBC TMSB,X 
BGG. LBES ‚wenn Ziffer < TMSB+X, dann 


‚Ziffer speichern 
STA ADRSTR+1 





PLA 
STA ADRSTR 
INC DIGIT ‚nächst größere Ziffer nehmen 
JMP ZEHN ‚neuer Versuch 
LBLS3 PLA ‚Stack ausgleichen 
LDA DIGIT ‚auszugebende Ziffer in Akku 
CPX +99 ;wenn X=ß, dann ist die Ziffer 
‚an der letzten Stelle 
BEQ SPEICH ‚dann Ziffer speichern 
CMP #BBd ‚Akku nit Ziffer Ö vergleichen 
BEQ TEST ;wenn Ziffer ist ß => verzweigen 
STA LEAD 
TEST BIT LEAD 
BPL NOTOUT ;wenn LEIT® positiv (Bit Nr.7=B)=> 
;verzweigen und ® nicht speichern 
SPEICH STA INT,X ;‚Zehntausenderziffer in INT,... 
‚Einerziffer in INT+4 speichern 
NOTOUT DEX ‚nächste Stelle 


BPL BEGIN | 
‚Ausgabe der Zeichen in INT,...INT+4 


STA STORES® 





LDA STATUS 
PHA 
STA AUXRAM ‚enable PAGER(AUXRAM) 
LDA XKOORH | 
LSR A | 
BCC GERADE | 
STA MAINRAM ‚enable PAGE1{MAINRAM) | 
GERADE LDX +99 ‚zur indirekten „...izierung 
LDY STELLEN ;Y ist Zählindex 
LOOP LDA INT,Y ‚Ziffer laden 
CHA ORA #980 ‚Ausgabenmodus festlegen 
STA (POSX),X ‚Ziffer in BSp eintragen 
LDA STATUS ; PAGE2-Schalte prüfen 
BMI PAGELON ‚Pagel einschalten 
STA AUXRAHL ‚enable PAGE2 (AUXRAM)} | 
ING POSX | 
JMP OK | 
PAGE1LON STA MAINRAM ‚enable PAGEIl(MAINRAM) 
OK DEY ‚nächstes Zeichen 
BPL LOOP 
JSR PASCAL 
RTS 
„END | 
FASTPRINT.TEXT 


{$S+} 
UNIT FASTPRINT; INTRINSIC CODE 25; 
{83.11.1984 Dr,W.Braun} 


{Diese Pascal-Unit dient zur Einbindung der drei Ausgabe- 
routinen in die SYSTEM.LIBRARY auf der Diskette APPLEL:} 


INTERFACE 

PROCEDURE PSTR(M,X,Y:INTEGER; STR:STRING); {Zeichenketten} 
PROCEDURE PCHA(M,X,Y:INTEGER; CHA:CHAR); {Chars} 
PROCEDURE PINT(S,M,X,Y, INT: INTEGER); (ganze Zahlen} 
IMPLEMENTATION 


PROCEDURE PSTR; EXTERNAL; 
PROCEDURE PCHA; EXTERNAL; 
PROCEDURE PINT; EXTERNAL; 
{kein Programmcode} 

BEGIN {Keine Initialisierung} 
END. 
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DEMOPRINT.TEXT 


Hüthig BUCHTIP 


Wegen der | 
neuen Programme 
paßt die neue | 
Begleit- 

diskette 

nur zur 

3. Auflage. 


PROGRAM DEMOPRINT; 
{83.11.1984 Dr.W.Braun} 


{Dieses Programm demonstriert den Geschwindigkeitsgewinn} 
{bei Verwendung der Prozedur PSTR zur Ausgabe von Zeichen-} 
{ketten im Vergleich zur Prozedur WRITELN} 


VAR 1,J:INTEGER; 
B:STRING; 


PROCEDURE PSTR(M,X,Y: INTEGER; STR:STRING)} ; EXTERNAL; 
PROCEDURE PCHA(M,X,Y: INTEGER;: CHA:CHAR); EXTERNAL; 
PROGEDURE PINT(S,M,X,Y, INT: INTEGER) ; EXTERNAL; _ 
PROCEDURE WARTE; 
BEGIN 

FOR I:=1 TO 28898 DO; 
END; 


BEGIN {Programmbeginn} 
B:='AAAAAAAAAAAAAAAAAMAAAAAAAAAAARAAAAAAR AA; 
B:=CONCAT(B,B):; 


{ker WRITELN-Prozedur wrkererrr) 


WRITELN({CHR(12),CHR(15)); (Bildschirm löschen, Invers} 
WARTE; 

GOTOXY(25,3); WRITE('PASCAL-Prozedur WRITE'); 

WARTE; WRITE(CHR(14)): {Normal} 
GOTOXY(9,5); 

FOR I:=5 TO 22 DO WRITELN(B); 


Apple DOS 3.3 — 
Tips und Tricks 


von U. Stiehl 


{serekraak PSTR-Prozedur zerrxkurs*)} 


WARTE; WRITE(CHR(12)); WARTE; 


PSTR(1,28,3, 'Prozedur PSTR(M,X,Y,STRING)'); 
WARTE; 


3., völlig überarb. Aufl. 1986, X, 203, 
mit zahlreichen, ausführlich kommentierten 


FOR I:=5 TO 23 DO PSTR(®,9,1,B); 
WARTE; 


END, 


DISK40 


Disketten-Organisationsprogramm für 
Apple Il+, Ile oder lic 


von Hermann Seibold und Dipl.-Ing. 
Udo Marin, 1986, 

Programmdiskette mit Anleitung, 

DM 48,— 


DISK4AO entstand aus der Analyse beste- 
hender Kopierprogramme und vereint in 
sich eine Vielzahl von Möglichkeiten, die 
sich als nützlich erwiesen haben. Durch 
eine einfach zu bedienende Menüführung 
können DOS-3.3-Disketten umfangreich 
bearbeitet oder kopiert werden. 

Zu den vielfältigen Möglichkeiten des Pro- 
gramms zählen u.a.: 


Programmlistings, kart., DM 28,— 
Begleitdiskette ebenfalls DM 28,— 


Dr. Alfred Hüthig Verlag : Postf. 102869 - 6900 Heidelberg 1 


Tabellarische Ausgabe der Disketten- 
belegung 
Ordnen des Catalogs 


„Undelete"n von versehentlich ge- 
löschten Dateien 


— Vergleichen von Disketten, 
oder der DOS-Spuren 


Kopieren von Disketten, Dateien oder 
DOS-Spuren 


Formatieren von Daten-Disketten 


— Erweitern auf 40 Spuren bei bestehen- 
den 35-Spur-Disketten 


Dateien 


- Ändern des Boot-Programms 

— File-Editor zum Editieren von Disketten- 
Dateien 

— Komfortabler Sektor-Editor für Hex- und 
ASCII-Darstellung 
VTOC-Editor, z.B. zur Freigabe der 
DOS-Spuren 


Schon nach wenigen Minuten können, 
dank der ausfühlichen Beschreibung, Dis- 
ketten nach eigenen Wünschen modifiziert 
oder Daten nach einem Disk-Crash wieder 
gerettet werden. 


Hüthig Software Service - Postfach 10 28 69 - Heidelberg 1 
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IPS UND TRICKS IN 





Teil 7: Der externe Aufbau von Files 


von Dieter Geiß 


Bislang sind in der Tips-und-Tricks-Serie 
folgende Teile erschienen: 

Teil 1: Die versteckte Prozedur 
„Idsearch", 8/85, S. 48ff. 

Teil 2: Kann man den P-Code optimieren?, 
9/85, S, 40ff. 

Teil 3: Der P-Code-Cruncher für 128K- 
Pascal, 10/85, S. SOff, 

Teil 4: Die Compiler-Optionen, 11/85, S. 
SZ 

Teil 5: Assembler-Ein/Ausgabe in UCSD- 
Pascal, 2/86, S. 47ff. 

Teil 6: Der interne Aufbau von Files, 3/86, 
5.48 ff. 

Als Fortsetzung des letzten Teils wollen 
wir uns nun mit der Repräsentation von 
Files auf der Diskette beschäftigen. Zum 
Verständnis benötigen wir das Programm- 
Listing 1 des letzten Teils (FILETEST, s. 
3/86, S. 54). Die Numerierung der neuen 
Listings soll deshalb an dieser Stelle mit 3 
fortgesetzt werden. Wir starten das Pro- 
gramm FileTest, welches vier Diskettenfi- 
les erzeudt. Der erste File (TEXT- 
FILE.TEXT) ist ein Textfile, der 4 Blöcke 
umfaßt, wobei 5 Bytes im letzten Doppel- 
block benutzt sind, wie ein ausführliches 
Listing des Directory zeigt, auf dem sich 
die Files befinden. Der zweite File ist 
ebenfalls ein Textfile mit vier Blöcken, in 
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dessen letztem Doppelblock 12 Bytes be- 
nutzt werden. Der dritte File besteht nur 
aus einem Block, in welchem erwartungs- 
gemäß 4 Bytes belegt sind fein Element 
„Typ“). Der vierte File kopiert den Codefi- 
le FILETEST.CODE in den File CODE- 
FEERODE: 


Im Prinzip gibt es sieben verschiedene 
Typen von Files (ohne Directory und Un- 
terdirectory), die sich in der Definition des 
Typs „Filekind” verstecken. Nur zwei da- 
von (Text- und Codefiles) müssen jedoch 
ein bestimmtes Format haben; die ande- 
ren sind benutzerabhängig. 


Im Prinzip besteht jeder File aus einer 
Aneinanderreihung von Bytes. 512 Bytes 
ergeben einen Block. Wie diese Bytes 
vom System oder von einem Benutzer 
interpretiert werden, hängt zunächst ein- 
mal von dessen Filetyp ab, der sich mei- 
stens im Suffix (.TEXT, .CODE etc.) be- 
merkbar macht. Doch auch ein Suffix Kann 
trügen. Es gelingt ohne große Mühe, im 
Filer mit Hilfe des Make-Kommandos ei- 
nen Codefile zu „machen“, der keinen 
regulären P- oder Assemblercode enthält. 
Man könnte diesen dann mit X(ecute zur 
Ausführung bringen, wobei das System 
mit größter Wahrscheinlichkeit abstürzen 


würde, da der Code „Schrott“ enthält. 
Beim Öffnen eines Files („rewrite“ oder 
„Make“ im Filer) bekommt der geöffnete 
File den Filetyp des Suffixes, falls eines 
vorhanden ist, ansonsten den Typ „Data“. 
So haben in unserem Listing 1 die vier 
Files die Typen Text, Text, Data, Code, 
weil die Namen der Files ein entsprechen- 
des Suffix aufweisen. Doch zunächst zu 
den benutzerabhängigen Filetypen (s.a. 1/ 
09,9. 09): 


Ein Xsdkfile kann nicht gelesen werden, 
da es „Bad Blocks“ aufweist. Ein solcher 
File kann mit Hilfe des Xamine-Befehls im 
Filer markiert werden. 


Ein Infofile sollte irgendwelche Informa- 
tionen enthalten. Es ist einem Program- 
mierer freigestellt, einen File mit dem Suf- 
fix INFO zu erzeugen. Ob dieser File tat- 
sächlich Informationen enthält, kommt auf 
den Programmierer an. Der Compiler be- 
nutzt den Infofile LINKER.INFO, um Infor- 
mationen für den Linker kurzzeitig abzu- 
speichern. 

Alle Files, die ohne Suffix erzeugt werden, 
sind Datafiles, die irgendwelche Daten 
enthalten. Ein Beispiel ist der File SY- 
STEM.MISCINFO, der z.B. Daten über 
den Aufbau des angeschlossenen Termi- 
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nals enthält. Der in Listing 1 erzeugte File 
DATAFILE.DATA wird gleich noch genau- 
er untersucht werden. 

Graffiles sind Files, die irgendwelche 
Grafiken enthalten sollen. Ich benutzte in 
meiner Implementierung der „TurtleGra- 
phics“ Graffiles, um den einfachen oder 
doppelt hochaufgelösten Grafikschirm ab- 
zuspeichern. 

Fotofiles können synonym zu Graffiles 
verwendet werden. 


1. Datafiles 


Als erstes wollen wir den erzeugten Data- 
file DATAFILE.DATA unter die Lupe neh- 
men. Wie schon erwähnt, besteht er nur 
aus einem Block mit 4 Bytes, die in diesem 
Block eine sinnvolle Information darstel- 
len. Das Programm schreibt mit Hilfe eines 
Put-Befehls einen Datensatz, der aus ei- 
nem zweielementigen Record besteht, auf 
den File, der auf Diskette angelegt wurde. 
Die beiden Integer-Zahlen sind 513 und 
1027. Die Zahlen wurden nicht zufallig so 
gewählt. Betrachtet man die Darstellungen 
von 513 und 1027 im Hexformat mit Low- 
und Highbyte, so ergibt sich die Darstel- 
lung 


513 = $081 $92 
1827 = $83 $94 


Somit ergeben sich die vier Bytes, aus 
denen der File besteht, nämlich $01, $02, 
603, und $04. Mit einem Disk-Lese-Pro- 
gramm könnte man dies nachprüfen. Der 
Rest des Blocks ist mit Nullen gefüllt. Die 
vier Bytes repräsentieren also genau ein 
Element des Files, dessen Typ Records 
mit 2 Integerzahlen zu je zwei Bytes ent- 
hält. 


2. Textfiles 


Ein mit einem Suffix TEXT erzeugter File 
hat immer mindestens die Größe von zwei 
Blöcken. Diese ersten zwei Blöcke enthal- 
ten Informationen für den Editor, mit dem 
der File geschrieben wurde. Falls der File 
vom Programm aus erzeugt wurde, wie 
das in unserem Beispiel der Fall ist, so 
werden diese zwei Blöcke mit Nullen ge- 
füllt, d.h. es stehen keine Informationen für 
den Editor bereit. Je nach Art des Editors 
sind die beiden ersten Blöcke unter- 
schiedlich aufgebaut. Es befinden sich 
dort auf jeden Fall die Positionen der Mar- 
ker, das Datum des Files, Tabulatorpositio- 
nen usw. Wurde ein File mit dem normalen 
Apple-Editor geschrieben, so kann er zwar 
mit dem Advanced System Editor (ASE) 
eingelesen werden, aber die Editorinfor- 
mationen des normalen Editors gehen ver- 
Ioren, Dasselbe gilt im umgekehrten Fall. 
Jeder Editor hat eine andere Datenstruktur 
für seine Informationen. Es bringt auch 
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nichts, diese Infomationen zu ändern; 
deswegen möchte ich auch nicht näher auf 
sie eingehen. 

Wird ein Textfile über eine Filevariable, 
welche einen Text- oder einen Interaktiv- 
file repräsentiert, zum Lesen geöffnet, so 
werden automatisch die ersten zwei BIök- 
ke übersprungen, da die dort enthaltene 
Information nicht direkt zum Textfile ge- 
hört. Ein Textfile besteht immer aus Dop- 
pelblöcken, hat also z.B. die Länge 2, 4, 6 
Blöcke usw. Auffallend ist auch, daß das 
Pascalsystem bei einem Zeilenvorschub, 
also einem 

writeln (F) 

prüft, ob das Ende eines Doppelblocks 
erreicht ist. Für das System ist es erreicht, 
wenn das nächste Byte, das nach dem 
End-Of-Line-Zeichen in den File geschrie- 
ben werden muß, näher als 128 Bytes vom 
letzten Byte des Doppelblocks entfernt ist, 
also noch weniger als 128 Bytes im Dop- 
pelblock Platz haben. Damit verschenkt 
das System beim folgenden 

writeln (F) 

genau 126 Bytes, da nach dem letzten CR 
noch eine Null in den File eingetragen 
wird. Jeder Doppelblock sollte mit minde- 
stens einer Null beendet werden, sonst 
dreht der Compiler durch, weil er das Ende 
des Doppelblocks nicht mehr findet, da er 
nach der letzten Null von hinten sucht. 
Der Inhalt von Textfiles besteht aus allen 
möglichen ASCIl-Zeichen, von denen drei 
durch ihre besondere Bedeutung heraus- 
ragen. 

0 (ASCII NUL, „null“) gibt das Ende eines 
Doppelblockes an. Nach einer Null kann 
keine Information mehr in diesem Doppel- 
block folgen. 

13 (ASCII CR, „carriage return“) gibt das 
Ende einer Zeile an. 

16 (ASCII DLE, „data link escape“) ist ein 
Spezialcode zur Komprimierung von Leer- 
zeichen. Die der 16 folgende Zahl ist die 
um 32 erhöhte Anzahl von Leerzeichen 
(ASCII SP, „space“). Es ist nicht erlaubt, 
mehr als 127 Leerzeichen durch ein DLE 
zu komprimieren, sonst werden sie beim 
Lesen von diesem File ignoriert, so daß 
die gültigen Werte nach einem DLE von 32 
bis 159 reichen. Die DLE-Komprimierung 
wird vor allen Dingen von den Editoren 
ausgenutzt. Reines Schreiben auf einen 
Textfile mit der gewöhnlichen Writeln-An- 
weisung erzeugt keine DLE-Komprimie- 
rung. Aus diesem Grund sind mit dem 
Editor erzeugte Textfiles fast ausnahmslos 
kürzer als per Programm erzeugte Text- 
files. 


3. Codefiles 


Am weitaus kompliziertesten ist der Auf- 
bau der Codefiles. Sie bestehen aus ei- 
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nem Kopf, der den ersten Block des 
Codefiles ausmacht und dem mehrere 
Blöcke Code und eventuell Linkerinforma- 
tionen folgen können. Der Kopf, das sog. 
Segment-Dictionary, läßt sich am einfach- 
sten durch eine Datenstruktur ausdrücken, 
wie sie in Listing 3 (LISTCODEF) gege- 
ben ist (vgl. Apple Pasca! Operating Sy- 
stem Reference Manual, S. 266ff.). Das 
Programm in Listing 3 gibt alle Komponen- 
ten des Segment-Dictionary eines Codefi- 
les aus, indem es Block O eines Codefiles 
oder einer Library einliest und die darin 
enthaltenen Daten als Datenstruktur 
„Segdic" interpretiert. 


Hinweis für Anfänger: 

1. Datei LISTCODEF.TEXT der Peeker- 
Sammeldisk #17 mit GETDOS von DOS- 
3.3-Sammeldisk #15 auf Pascal-Diskette 
konvertieren. 

2.EISICOBEF TEXT ZU EI SICOBER. CO: 
DE compilieren und dann über Xfecute 
starten. 

3. Es erscheint ein Menü — ähnlich dem 
Filer. Nunmehr Name des zu analysieren- 
den Codefiles oder kurz L für Library usw. 
eingeben. 


Ein Codefile kann maximal 16 Segmente 
beinhalten. Diese 16 Segmente sitzen In 
den 16 Slots und können mit Hilfe des 
Library-Programms auf der Diskette AP- 
PLE3 (Pascal 1.1) bzw. APPLE2 (Pascal 
1.2) vertauscht werden. Mit Hilfe dieses 
Programms können auch neue Segmente 
ın eine Library eingebracht werden, solan- 
ge dort noch Slots frei sind. Jeder Array im 
„Ssegdic“ hat 16 Einträge, welche die 16 
Slots repräsentieren. Da alle Slots gleich- 
wertig sind, beziehen sich die Erläuterun- 
gen jeweils auf ein Element eines Arrays. 


Diskinfo besteht aus jeweils zwei Integer- 
Zahlen. 


Diskaddr gibt die Adresse des Anfangs 
des Segments relativ zum Anfang des 
Codefiles in Blöcken an. 


Codeleng gibt die Größe des Segments in 
Bytes an. 


Segname ist der Name des Segments. 
Wird ein Programm ohne die erste Pro- 
grammzelle 

program... 

geschrieben, so setzt der Compiler nur zur 
Übersetzungszeit den Hauptprogrammna- 
men PROGRAM ein. Der Segname ist je- 
doch leer (er besteht aus Leerzeichen). 


Segkind gibt die Art des Segments an. 
Wir unterscheiden: 

a) Linked: Das Segment ist ausführbar. 
Alle externen Referenzen wurden durch 
den Linker aufgelöst, wenn solche vorhan- 
den waren. 
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b) Hostseg: Ein Hauptprogramm, das noch 
gelinkt werden muß, weil es entweder As- 
semblerroutinen oder reguläre Units be- 
nutzt. Der Linker muß die Referenzen 
noch auflösen. 

c) Segproc: Eine Segment-Prozedur. Die- 
ser Typ wird allerdings nicht benutzt. Eine 
Segment-Prozedur ist vom Typ Linked. 

d) Unitseg: Eine normale Nicht-Intrinsic- 
Unit. 

e) Seprtseg: Eine separat compiliertes 
oder assembliertes Segment. Da Units an- 
dere Typbezeichnungen haben, bleiben 
nur Assemblerroutinen übrig, die diesen 
Typ einnehmen können. 

f} Unlinked_Intrinsic: Eine Intrinsic Unit, 
die Assemblerroutinen aufruft. 

ga) Linked_Intrinsic: Eine vollständig ge- 
linkte Intrinsic Unit. 

h) Dataseg: Ein Datensegment für eine 
Intrinsic Unit. Eine reguläre Unit hat kein 
Datensegment, da ihre Variablen als glo- 
bale Variablen angesehen werden. Eine 
Intrinsic Unit hat ein Datensegment, wenn 
im Interface-Teil oder im Implementation- 
Teil Variablen erklärt wurden. 


Textaddr gibt die Adresse des Interflace- 
Textes einer Unit relativ zu Block O des 
Codefiles an. Interface-Text ist nicht dop- 
pelblockweise, sondern blockweise orga- 
nisiert. Am Ende des Interface-Textes ste- 
hen meistens 8 Leerzeichen und dann ein 
abschließendes „E“. Diese 8 Leerzeichen 
können an der zweiten und vierten Stelle 
von den Buchstaben P und L unterbro- 
chen sein. Das P steht für PASCALIO und 
das L für LONGINTIO. Die Buchstaben 
treten genau dann auf, wenn eine Unit 
eine der beiden oder auch beide System- 
Units für Real-Ein/Ausgabe bzw. Long- 
Integer-Ein/Ausgabe benuizt. Dies ist ein 
Trick des Compilers, da im Interface nicht 
das 

uses PascallO, Long!ntlO; 

auftreten kann. Das kommt daher, daß die- 
se Units vom System vordefiniert sind und 
implizit unter anderem durch die Befehle 


seek, readln {R), writeln (R) bzw. 
readlIn ({L), writeln (L), str usw. 


in ein Programm oder eine Unit eingeführt 
werden. Bei den eben erwähnten Befeh- 
len ist R eine Real- und L eine Long- 
Integer-Varlable. 


Seginfo enthält verschiedene Informatio- 
nen zu einem Segment, die sich in einem 
„packed record“ des Typs „Seginfrec“ 
verstecken. 

Segnum gibt die Nummer des Segments 
an, die von O bis 31 (Pascal 1.1, Pascal 1.2 
64K) oder von O bis 63 (Pascal 1.2 128K) 
reichen kann. 

Mtype reicht von O bis 9 und gibt die Art 
des Maschinencodes an. Dabei bedeuten 
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0: Unbekannter Code 

1: P-Code, wobei das signifikanteste Byte 
zuerst kommt (Positive Byte Sex) 

2: P-Code, wobei das am wenigsten signi- 
fikante Byte zuerst kommt (Negative Byte 
Sex). Dieser Code wird beim Apple be- 
nutzt. 

3 bis 9: Maschinencode, der von einem 
Assembler erzeugt wurde. Die Zahl 7 re- 
präsentiert 6502-Code. 

Das nächste Bit ist unbenutzt. 


Version gibt die Version des Codes an. 
Für sie gilt: 

1: Pascal 1.0 

2: Pascal 1.1 

5 Basta 2 

Usedintrins ist eine Menge von Intrinsic 
Units, die ein Programm benutzt. Die Men- 
ge reicht normalerweise von O bis 31, bei 
Pascal 1.2 128K jedoch von 0 bis 693, da 
dort 64 Segmente benutzt werden kön- 
nen. Ist z.B. Bit 22 in dieser Menge ge- 
setzt, so braucht das Programm die Unit 
mit der Segmentnummer 22, welche nor- 
malerweise von der Unit Applestuff okku- 
piert wird. 


Danach folgen 68 oder 70 Words, die kei- 
ne Bedeutung haben. 


Comment ist eine Zeichenkette mit maxi- 
mal 79 Buchstaben, die den Kommentar 
enthält, den man mit Hilfe der Compiler- 
Option (x$C...x) in einen Codefile einbin- 
den kann. 


Ab Block 1 folgen nun entweder ein Inter- 
face-Text oder schon der Code selbst. 
Bevor auf ihn näher eingegangen wird, soll 
kurz noch auf die dem Code folgenden 
Blöcke eingegangen werden. 

Ein Hauptprogramm oder eine Inirinsic 
Unit, die Assemblerprozeduren als „exter- 
nal“ erklärt haben, oder eine reguläre Unit 
benötigen Informationen, damit der Linker 
die Referenzen auflösen kann. Sie wird 
vom Compiler generiert und direkt hinter 
den Code des jeweils erzeugten Seg- 
ments geschrieben. Mit Hilfe der Datenty- 
pen LiTypes, LiEntry, Alpha, Opformat, 
LCrange, ICrange und Procrange kann 
diese Information interpretiert werden. Da- 
zu sind jedoch noch einige Tricks nötig, 
die man mit Hilfe sich überlagernder va- 
rianter Records anwenden kann. Es würde 
in diesem Artikel zu weit führen, auf die 
Linkerinformation näher einzugehen, da 
eine detaillierte Beschreibung des Teils 
des Compilers, der die Information 
schreibt, erfolgen müßte. Unter Zuhilfe- 
nahme des Programms Libmap auf der 
APPLES- bzw. APPLE2-Diskette kann die 
Linkerinformation jedoch abgerufen und 
sichtbar gemacht werden. 

Nun zum eigentlichen Aufbau des Codes 
eines Codefiles. Wir unterscheiden zwi- 
schen P-Code und Assemblercode. 


3.1. P-Code 


Ein Charakteristikum des P-Codes ist es, 
daß er relokatibel ist, d.h. er ist überall im 
Speicher ablauffähig. Daraus folgt, daß in 
ihm keine absoluten Adressen auftreten 
können. Vielmehr gibt es eine große Än- 
zahl von Zeigern, die auf den Anfang und 
das Ende einer Prozedur zeigen, und vie- 
les mehr. Alle Zeiger sind relativ zu sehen, 
d.h. relativ zu der Stelle, an der der Zeiger 
steht. 


Das Segment-Dictionary wurde schon 
oben besprochen. Mit Hilfe der beiden 
Variablen im Diskinfo kann der Beginn und 
die Länge eines Codesegmentes festge- 
stellt werden. Der Code muß dabei von 
hinten (hohe Adressen) angesehen wer- 
den. In Bild 1 ist der Code des Hauptpro- 
gramms aus Listing 4 (LEVELO) darge- 
stellt, welches zwei Prozeduren beinhaltet. 
Insgesamt zählt das Segment drei Proze- 
duren, da das Hauptprogramm ebenfalls 
als Prozedur gilt. Als oberstes erkennt 
man das sog. „Procedure Dictionary”, 
welches Zeiger auf alle im Segment ent- 
haltenen Prozeduren aufweist. Prozedur- 
nummern werden vom Compiler von 1 in 
aufsteigender Reihenfolge bis höchstens 
149 vergeben. Eine Prozedur mit der 
Nummer O existiert nicht, weswegen die 
beiden Bytes für Prozedur O benutzt wer- 
den, um die Segmentnummer {niederwer- 
tiges Byte) und die Anzahl der Prozeduren 
im Segment (höherwertiges Byte) anzu- 
zeigen. 


Die Zeiger auf die Prozeduren zeigen je- 
weils auf die „Procedure Code Section“. 
Sie besteht zum einen aus der „Table of 
Attributes“ und zum anderen aus dem 
Code selbst. Die „Table of Attributes” be- 
steht mindestens aus 5 Words. Das erste 
Word (von oben) ist in zwei Bytes unter- 
teilt, welche die Prozedurnummer ({nieder- 
wertiges Byte) und die lexikalische Ver- 
schachtelungstiefe (höherwertiges Byte) 
angeben. Für die Verschachtelungstieie 
(Lex Level) gelten folgende Werte: 
Pascalsystem = -1! 
Hauptprogramm oder 
Pascalsystems = 0 
Prozeduren im Hauptprogramm = 1 
Prozeduren obiger Prozeduren = 2 usw. 
Prozeduren mit Verschachtelungstiefe -1 
oder O0 werden auch „Base“ Prozeduren 
genannt, weil bei ihrem Aufruf das BASE- 
Register gerettet wird. Mit Hilfe des BASE- 
Registers werden giobale Variablen adres- 
siert. Prozeduren mit Verschachtelungs- 
tiefe 1 werden globale Prozeduren ge- 
nannt, weil deren Markstack auf die letzte 
„Base Prozedur“ zeigt. Prozeduren, de- 
ren Verschachtelungstiefe um eins größer 
ist als die sie aufrufende Prozedur, sind 
lokale Prozeduren. Ein Aufruf einer globa- 
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len Prozedur vom Hauptprogramm führt 
allerdings nicht zur Erzeugung eines glo- 
balen, sondern eines lokalen Aufrufs, da 
globale Prozeduren lokal zum Hauptpro- 
gramm sind. Andere Relationen der Ver- 
schachtelungstiefe führen zu „Intermedia- 
te” Prozeduren. 

Dann folgen der „Enter IC”, der auf das 
erste Byte des Codes zeigt, der bei Aufruf 
der Prozedur ausgeführt werden muß. Der 
„Exit IC“ zeigt auf den ersten von denjeni- 
gen Befehlen, die noch ausgeführt werden 
müssen, bevor die Prozedur verlassen 
werden kann. Diese können Instruktionen 
zum Schließen von Files oder zur Freigabe 
von Segmenten sein. „Parameter Size“ 
gibt die Größe der an die Prozedur über- 
gebenen Parameter an. „Data Size“ ist die 
Größe der lokalen Variablen, beim Haupt- 
programm die der globalen Variablen, Die 
folgende optionale „Jump Table” enthält 
Zeiger auf Stellen im Prozedur-Code. Die 
„Jump Table“ wird benötigt, weil der P- 
Code keine Rückwärtssprünge kennt. Je- 
der Rückwärtssprung zeigt auf einen Ein- 
trag in der „Jump Table“, welcher wieder- 
um auf die Stelle im Code zeigt, die ange- 
sprungen werden muß. Auch bei Vor- 
wärtssprüngen, die in einem Byte nicht 
unterzubringen sind (weiter als 127 Bytes 
vorwärts), wird der Umweg über die 
„Jump Table“ gewählt (s.a. Apple Pascal 
Operating System Reference Manual, S. 
239 über „Jumps”). 


3.2. Assembler-Code 


Das Format der „Table of Attributes“ ist 
sehr unterschiedlich, vergleicht man es 
mit dem des P-Code. Zum besseren Ver- 
ständnis sollte man sich Bild 2 ansehen, in 
welchem der Code der Assemblerproze- 
dur aus Listing 5 (ASSEM) graphisch dar- 
gestellt ist. Schon das erste Word von 
oben, welches wieder in zwei Bytes aufge- 
spaltet ist, gibt eine andere Information 
wieder als bei P-Code-Prozeduren. Dort 
war es die Verschachtelungstiefe und die 
Prozedurnummer. Im niederwertigen Byte 
ist an die Stelle der Prozedurnummer eine 
0 getreten, damit der Interpreter beim La- 
den eines Segments weiß, daß es sich um 
eine Maschinenprozedur handelt. Dieser 
Umstand ist wichtig, da nicht jeder Code 
eines bestimmten Prozessors relokativen 
Code erzeugen kann. Da Maschinenpro- 
zeduren aber mit P-Code gemischt auftre- 
ten können, muß auch jede solche Proze- 
dur überall im Speicher ablauffähig sein. 
Der Interpreter muß dann zur Ladezeit ei- 
nes Segments alle Referenzen auflösen, 
nachdem er weiß, an welcher Stelle im 
Speicher der Maschinencode sitzen wird. 
Da Maschinenprozeduren nur in der Ver- 
schachtelungstiefe 1 auftreten können, 
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d.h. als globale Prozeduren, ist auch diese 
Information nicht nötig. Statt dessen muß 
dem Interpreter bekannt sein, worauf sich 
die „BASE RELATIVE“-Adressierung be- 
zieht. Befindet sich eine O im höherwerti- 
gen Byte des ersten Word, dann bezieht 
sich die „BASE RELATIVE"-Adressierung 
auf ein Programm oder eine Prozedur mit 
Verschachtelungstiefe O0 (gewöhnlicher- 
weise das Hauptprogramm). Ist die Zahl 
ungleich O, so bezeichnet sie die Seg- 
mentnummer einer Intrinsic Unit. Die „BA- 
SE RELATIVE“-Adressierung wird an ent- 
sprechender Stelle weiter unten erklärt. 


Als zweites Word ist wie im P-Code der 
Enter IC vorhanden, der auf die erste An- 
weisung zeigt, die ausgeführt werden 
muß, wenn die Prozedur aufgerufen wird. 


Nun folgen vier Relokativtabellen, welche 
alle das gleiche Format haben und die vom 
Interpreter benutzt werden, um den Ma- 
schinencode an der Stelle zum Laufen zu 
bringen, an der er geladen wurde. Als 
erstes taucht eine normale Integerzahl auf, 
die auch O sein kann. Sie gibt an, wieviele 
Eintrage sich in der Tabelle befinden. In 
unserem Beispiel sind dies 2, 1, 3 und 2 
für die vier Tabellen. Die vier Tabellen 
werden (von oben nach unten) BASE RE- 
LATIVE, SEGMENT RELATIVE, SELF RE- 
LATIVE und INTERPRETER RELATIVE 
TABLES genannt. In jeder befindet sich 
eine gewisse Anzahl von Zeigern, die auf 
den Teil des Maschinencodes zeigen, der 
zur Ladezeit noch auf den richtigen Stand 
gebracht werden muß. 


Die BASE RELATIVE TABLE führt die vier 
Tabellen an. Globale Variablen werden 
über das BASE-Register der P-Maschine 
adressiert. Von einem Maschinenpro- 
gramm können diese mit den PUBLIC- 
und PRIVATE-Konstrukten erreicht wer- 
den. Ist das Maschinenprogramm in eine 
Intrinsic Unit eingebunden, so werden 
statt dessen die Variablen in deren Data 
Segment adressiert. In unserem Beispiel 
sind zwei Konstrukte (PUBLIC und PRIVA- 
TE) aufgetaucht, die Einträge in die BASE 
RELATIVE TABLE erzwingen. 


Als nächstes folgt die SEGMENT RELATI|- 
VE TABLE, in welcher Einträge gemacht 
werden, wenn man eine Konstruktion mit 
REFs verwendet. Solche werden relativ 
zum Segmentanfang adressiert. 


Die SELF RELATIVE TABLE benutzt den 
Anfang der Prozedur als Relokativinforma- 
tion. In ihm befinden sich u.a. sämtliche 
Labels, die zur Prozedur gehören, und die 
darin definierten DEF-Konstruktionen. In 
unserem Beispiel befinden sich drei Ein- 
träge in dieser Tabelle. 


Als letztes folgt die INTERPRETER RELA- 
TIVE TABLE. Sie funktioniert aber nur bei 
Pascal 1.2 richtig, weshalb sich alle folgen- 


den Informationen nur auf Pascal 1.2 be- 
ziehen. Im Apple Pascal Operating System 
Reference Manual wird auf Seite 162 die 
Assembler-Direktive INTERP erklärt. Mit 
ihr können Stellen adressiert werden, die 
sich relativ zum Interpreter befinden. Drei 
Adressen ragen bei der Adressierung 
INTERP+n 

besonders heraus: 

n = 0: Die Execution Error Routine, die 
eine Fehlermeldung als Akkumulator-Wert 
ausgibt. Beispiel: 

LDA #06 ‚Division by zero 

JMP @.INTERP ;$DIFB oder $D210 

n = 2: Die Adresse der BIOS Jump Table. 
Beispiel: 

JMP @.INTERP+2 ;Console Read 

STA 00 

n = 4: Die Adresse der SYSCOM (System 
Communication Area). 

LDY #00 

LDA (.INTERP+4),Y ;Letzter IORESULT 
STA 00 

Ein INTERP wird zunächst beim Laden als 
absoluter Wert ersetzt. Dabei gilt für die- 
sen Wert: 

Pascal 1.2: 064K: .INTERP = $D1AF 
Pascal 1.2: 128K: .INTERP = $D1B8 

Ab $D1AF bzw. $D1B8 liegen dann die 
sechs Bytes, die durch den obigen Aus- 
druck fürn = 0, 1,2, 3,4 und 5 zu erhalten 
sind. Diese 6 Bytes sind als 3 Adressen zu 
interpretieren, die wiederum auf die drei 
erwähnten Stellen zeigen. Für Pascal 1.2 
64K sind dies $D1FB, $FFOO und $BDDE 
und für Pascal 1.2 128K sind es $D210, 
$FFOO und $BDIE. Ein weiteres Beispiel 
für die INTERP-Direktive liegt in der Unit 
LONGINTIO vor. Dort wird von Maschi- 
nensprache aus die Exec-Error-Routine 
aufgerufen, wenn beispielsweise ein 
(Long) Integer Overflow auftritt. Da ein 
INTERP Befehl bei Pascal 1.1 nicht funk- 
tioniert, hängt das System bei einem 
Überlauf oder stürzt einfach ab. 


Das nächste Mal soll eine Utility-Unit vor- 
gestellt werden, die einige der bislang in 
dieser Serie behandelten Tricks benutzt. 


Kurzhinweise 


1. Zweck: 

Analyse der externen Struktur von Files. 
2. Konfiguration: 

II+/e/c, UCSD-Pascal 1.1/1.2 

3. Test: 

X(ecute LISTCODEF.CODE 

(nach Konvertierung und Gompilierung) 
4. Sammeldisk: 

EISECOBER TER 

KEVEEOTIERT 

ASSEM.TEXT 

Diese Textfiles müssen zunächst mit GET- 
DOS (s. Sammeldisk #15) auf Ihre Pas- 
cal-Arbeitsdiskette konvertiert werden. 
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Listing 3: LISTCODEF.TEXT 


{$1-} 
{$R-} 
program ListCodefile (input, output); 
const Maxslot = 15; 
Maxseg = 68; 
vr = 1]; 
GS = 233; 
type Alpha = packed array [9..7] of char; 
Segrange = ®..Maxseg; 
| Slotrange = ®. .Maxslot; 
| Segset = set of Segrange; 
Segdesc = record 
Diskaddr integer; 
Codeleng : integer 
end; {Segdes} 
Segkinds = (Linked, Hostseg, Segproc, Unitseg, Seprtseg, 
Unlinked_Intrinsic, Linked_Intrinsic, 
Dataseg); 
Seginfrec = packed record 
Segnum : 9, .255; 
Mtype m 5; 
unused : 9..l; 
Version : #..7 
end; {Seginfrec} 
Segdic = record 
Diskinfo array [Slotrange] of Segdesc; 
Segname array [Slotrange] of Alpha; 
Seskind array [Slotrange] of Segkinds; 
Textaddr array [Slotrange] of integer; 
Seginfo array0[Slotrange] of Seginfrec; 
Usedintrins : Segset; 
Filler array [ß.:67] of integer; 
Comment string [79] 
end; {Segdic} 
var BEL | char; 
IO ; integer; 
DoWrite : boolean; 
Indie Segdic; 
Infile file; 
Inname string; 
Libdic Ssegdic; 
Libfile file; 
Libnane string; 
Prompt : string; 


I——— | 


procedure CGlearscreen; 

begin {Clearscreen} 
page (output) 

end; {Clearscreen} 


— — 


procedure Cleop; 
begin {Cleop} 

write (chr (VT)) 
end; {Cleop} 


ea ee } 


{ Te 


procedure Cleol; 
begin {Cleol} 

write (chr (6S)) 
end; {Cleol} 





(-— 
procedure InitDic (var Dic Segdic); 
begin (InitDic} 

fillchar (Dic, size_of (Dic), B); 

with Dic do 

fillchar (Segname, size_of (Segname), 
end; {InitDic} 


L j } 


m —— 


procedure Init; 
begin {Init} 


BEL = chr (7); 
Prompt := 'Kommandos: C(lear, N{ew file, P{ascal, L{ibrary, 
S{ystem.wrk.code, Q{uit? ' {Bitte in eine Zeile} 

end; {Init} 
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Ey ucsd 34 


km  ] 


procedure ReadUpper (var C : 


char); 


begin {ReadUpper} 


read (C); 


Dein je 


a'..'z'] then 6 := chr (ord (C) - 32) 


end; {ReadUpper} 


{ En 


| 


procedure WritelO; 
begin {WritelIö} 


gotoxy {B, 


Gleol; 


write (BEL, 
{WritelO} 


end; 


23); 


170 Error =", 10): 


[m 


procedure BlockßError; 
begin {BlockßError} 


gotoxy (9, 


Cleol; 


write (BEL, 


23) 


'Error in reading block #9') 


end; {BlockßError} 


procedure WriteSlot (Dic 
integer; 


var Nr 


Te 


Segdic; Slot integer; C : char); 


X : integer; 
Y : integer; 
begin ({WriteSlot} 


with Dic, 


Diskinfo [Slot], Seginfo [Slot] do 


if (Diskaddr + Codeleng <> B) or 
(Segkind [Slot] in [Hostseg. .Dataseg]) or 


(Segname [Slot] <> ' 


begin 


') then 


if Version < | 


then Nr 
else Nr 


:= Slot 
:= Segnum; 


if Nr in [B..15, 32,.47] 


then X 
else X 
Yeo_eNr 


= 9 
AN, 


mod (Maxslot + 1); 


gotoxy (X, Y+6}; 
write (C)}; 


write (Nr : 3, 


1); 


write (Segname [Slot]); 
write (Diskaddr : 4); 


write (Codeleng : 


Tr I 2 


case Segkind [Slot] of 
Linked : write ('Lnkd'); 


Hostseg 

Segproc 

Unitseg 

Seprtseg 
Unlinked_Intrinsic 
Linked_Intrinsic 
Dataseg 

[case} 


end; 


: write ('Host'); 
write ('Segp'); 
write NlUnTe"): 
Serite [sprt'): 
ıkrıte (NUlnt!): 
write (kentl)e 
: write ('Data') 


write (Textaddr [Slot] : 5); 
write (Mtype : 2}; 
write (Version : 2) 
end {if, with} 
end; {WriteSlot} 


| 


er De a mr } 


procedure PrintEmpty; 


var I 


integer; 


X : integer; 
Y : integer; 
3 . string; 
begin {PrintEmpty} 
gotoxy (19, 2); 


Cleop; 


5 := ' Segm Sepname 
length (S); 


T 


gotoxy (B, 


unitwrite 


Add Length Kind Text M V'; 


4); 
Seller: 


gotoxy (48, 4); 


unitwrite 

for I 

begin 
if I <= 
then X 


Y 


=.0 to 31 Jo 


(1.8 j1],.T1}; 
{nur 32 Segmente} 


15 


= 9 


else X : 


48; 


N 


:= I mod (Maxslot + 1); 


gotoxy IA, Y +8); 


39 








Bet = = ü 23 r= 7 vn n f ' 
write (I: 4, '-') gotoxy (19, 2}: 
end {for} write (Innane) 
end; {PrintEnpty} end; {if} 
reset (Infile, Inname); 
[1 1 1  } IO := IO_Result; 
if IO <> ® then 
procedure PrintCode; begin 
var I, X, Y : integer; Inname := concat (Inname, '.CODE')}; 
begin {PrintCode} reset (Infile, Inname}; 
for I := ß to Maxslot do WriteSlot (Indic, I, ' ') IO := IO_Result 
end; {PrintCode} end; {if} 
if IO <> ß then WriteloO 
SS until IO =; 
if blockread (Infile, Indic, 1) =1 
procedure PrintLibrary; then 
var I : integer; begin 
begin {PrintLibrary} PrintCode; 
if Indic.Usedintrins <> [] then PrintLibrary 
begin end {if} 
Libname := 'xSYSTEM.LIBRARY'; else BlockßError 
reset (Libfile, Libname}; end; {AskIn} 


IO := IO_Result; 


ir 0-9 [— 1] 


then 
if blockread (Libfile, Libdic, 1) = 1 procedure List; 
then var GC : char; 
begin Ss : string; 
for I := ® to Maxslot do X : integer; 
if Libdic.Seginfo [I]J.Segnum in Indic.Usedintrins begin {List} 
then WriteSlot (Libdic, I, '*') Clearscreen; 
end {if} InitDic (Indic); 
else BlockßError X := length (Prompt): 
else write (Pronpt); 
begin gotoxy (8, 2); 
gotoxy (B, 23); | write ('Input code file ->'}; 
Cleol; PrintEmpty; 
write (BEL, 'Can''t find ', Libname); repeat 
end; {else} gotoxy (X, 9); 
close (Libfile) Cleol; 
end {if} Readlpper (C); 
end; {PrintLibrary} gotoxy (®, 23); 
Cleol; 
Ve ee nn 1} case GC of 
’'CT r begin 
procedure PrintSpecial (Name : string); PrintEmpty; 
begin {PrintSpecial} AskIn 
close (Infile}; end; {'C'} 
Inname := Name; : AskIn; 
gotoxy (19, 2); : PrintSpecial ('xSYSTEM.PASCAL'); 
Gleol; : PrintSpecial ('»SYSTEM.LIBRARY')}; 
write (Inname); | : PrintSpecial ('*SYSTEM.WRK,CODE'); 
reset (Infile, Inname); : begin 
IO := IO_Result; close (Infile); 
it 0.82% exit (List) 
then WritelIO end {'Q'} 
else end {case} 
if blockread (Infile, Indic, 1) =1 unteres 
then end; {List} 
begin 
PrintCode; {- 
PrintLibrary 
end {if} begin {ListCodefile} 
else BlockßError Init- 
end; {PrintSpecial} Bst 


end {ListCodefile}. 


Damm 


procedure AsklIn; 

begin {AskIn} 
close (Infile); 
InitDic (Indie); 


repeat 

gotoxy (19, 2); 

Cleol; 

readln (Innane); 

if Inname = '' then exit (AskIn); 

DoWrite := false; N n7 

m Telefonische Bestellungen‘? 

begin i ß i 
DoWrite := true; Da unsere Peeker-Diskeiten in offener Rechnung und nicht 
a ZeSsıwin in dem für Sie teuren Nachnahme-Verfahren ausgeliefert 

end; 1 . . u. . u. F 

Ic Tonane [enerh Inname)y] Seen werden, haben Sie bitte Verständnis dafür, daß wir nur 

begin noch schriftliche Bestellungen annehmen. 
DoWrite := true; | e \ en Be 
insert ('SYSTEM.LIBRARY', nn (Innane)); | Sie können dazu beispielsweise die in jedem Peeker ein- 

a EL gehefteten Bestellkarten verwenden. 

if DoWrite then En a 

begin Hüthig Software Service 
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Listing 4: LEVELO.TEXT 


program Levelß; 
procedure Levell; 


procedure Level2; 

begin {Level2} 
Levell; {Aufruf einer globalen Prozedur} 
repeat (Eintrag in Jump Table} 
until false 

end; {Level2} 


begin {Levell} 
Level2 {Aufruf einer lokalen Prozedur} 
end; {Levell} 


begin {PcodeBeispiel} 
Leveil {Aufruf einer globalen Prozedur,} 
{die lokal zum Hauptprogramm ist} 
end {PcodeBeispiel}. 


Bild 1: Codesegment zu Listing 4 
Alle Zahlen sind in hexadezimaler Darstellung 








Adresse Inhalt Bedeutung 
38 Anzahl der Prozeduren/Segmentnr. 
36 Zeiger auf Prozedur 1 
34 Zeiger auf Prozedur 2 
32 Zeiger auf Prozedur 3 
30 Lex Level/Prozedurnr. 
2E Enter IC 
2C Exit IC 
2A Parameter Size (input, output) 
28 Data Size 
26 RBP 00 
24 GEP 02 
23 NOP ie 
22 NOP 
20 Lex Level/Prozedurnr. 
1E Enter IC 
1C Exit IC 
1A Parameter Size 
18 Data Size 
16 RNP 00 
Code 
14 CEP 03 
12 Lex Level/Prozedurnr. 
10 Enter IC 
OE Exit IC 
0C Parameter Size 
0A Data Size 
08 Jump Table zeigt auf 02 (= 08-06) 
07 Füllbyte für gerade Adressen 
05 RNP 00 
03 FJP F6 
02 sioce oo | “ee 
00 CGB 02 
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Listing 5: ASSEM.TEXT 


„PROC ASSEM_BEISPIEL 


„PUBLIC PUBL1 
‚PRIVATE PRIV1 
‚REF REF1 

‚DEF DEF] 


LDA PUBL1 
STA PRIVI 
LDA REF1l 
STA DEFl 
LDA LABEL1 
STA LABELZ 
LDA .INTERP 
STA dB 

LDA .INTERP+1 
STA Bl 

JMP @99 
RTS 


DEF1 .BYTE 
LABELL1 ‚BYTE 
LABEL2 ‚BYTE 


. END 





Bild 2: Codesegment zu Listing 5 
Alle Zahlen sind in hexadezimaler Darstellung 


Adresse Inhalt Bedeutung 
42 Anzahl der Prozeduren/Segmentnr. 
40 Zeiger auf Prozedur # 1 
3E Relocativ-Info/Prozedurnr. 
3C Enter IC 
3A Anzahl BASE RELATIVE Zeiger 
38 Zeiger auf 04 (= 38-34) 
36 Zeiger auf 01 (= 36-35) 
34 Anzahl SEGMENT RELATIVE Zeiger 
32 Zeiger auf 07 (= 32-2B) 
30 Anzahl SELF RELATIVE Zeiger 
2E Zeiger auf 10 (= 2E-1E)} 
2C Zeiger auf OD (= 2C-1F) 
2A Zeiger auf OA (= 2A-20) 
28 Anzahl INTERPRETER RELATIVE Zeiger 
26 Zeiger auf 18 (= 26-0E) 
24 Zeiger auf 13 (= 24-11) 
23 Füllbyte für gerade Adressen 
22 LABEL2 
21 LABEL 1 
20 DEF 1 
IE RTS 
1C JMP (0000) 
1A STA 01 
17 LDA .INTERP + 1 
15 STA00 
12 LDA .INTERP 
Code 
OF STALABEL2 
0C LDA LABEL 1 
09 STADEF 1 
06 LDAREF 1 
03 STA PRIV 1 
00 LDA PUBL 1 





Es wurden nicht alle Zeiger eingezeichnet, da dies zu verwirrend erscheinen 
würde. 
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Pi mit bis zu 15.500 Stellen Genauigkeit 


von Roland und Manfred Fietkau 


Es war etwa zu Beginn des 19. Jahrhun- 
derts, als die berühmte Pariser Akademie 
der Wissenschaften bekanntgab, man 
werde keine weiteren Lösungen zum Pro- 
blem der Quadratur des Kreises mehr ent- 
gegennehmen und überprüfen. 

Zumeist waren es Hobby-Mathematiker, 
die sich an diesem Problem versuchten, 
verführt von der einfachen Aufgabenstel- 
lung dieser klassischen Forderung: Ein 
Kreis sei mit den Hilfsmitteln Zirkel und 
Lineal in ein flächengleiches Quadrat zu 
verwandeln. 

Vermutlich war es gerade diese Schlicht- 
heit in der Formulierung, die vor allem 
Leute mit ansonsten nur elementaren 
Kenntnissen der Geometrie veranlaßte, 
sich auf die Suche zu machen, fasziniert 
von dem Gedanken, es bedürfe nur eines 
genialen Einfalles oder einer zufälligen 
Entdeckung, um in die Geschichte der Ma- 
tnematik einzugehen. 


1. Geschichtliches 


Schon der berühmte Archimedes (287- 
212 v.Chr.) hatte bewiesen, daß ein Kreis 
flächengleich ist mit einem rechtwinkligen 
Dreieck, dessen eine Kathete gleich dem 
Radius des Kreises und dessen andere 
gleich dem Umfang des Kreises ist (siehe 
Abb. 1). 


Bereits damals aber hatten griechische 
Mathematiker eingewandt, ein solches 
Dreieck könne nicht gezeichnet werden, 
denn die beiden Katheden seien inkom- 
mensurabel, d.h. es sei nicht möglich, ihr 
Längenverhältnis durch natürliche Zahlen 
auszudrücken. Andererseits war ganz offen- 
sichtlich, daß es ein solches Dreieck ge- 
ben muß, denn der Umfang eines Kreises 
hat ja eine ganz bestimmte Länge. Mit 
anderen Worten: Wenn es gelingt, eine 
Sirecke zu zeichnen, die exakt dem Um- 
fang eines Kreises entspricht (Rektifikation 
des Kreises), ist das große Problem ge- 
löst. Viele der in Paris eingereichten Lö- 
sungen waren sehr scharfsinnig und erfüll- 


Den Satz „Störe meine Kreise nicht!“ soll 
Archimedes einem Römer zugerufen ha- 
ben, bevor er getötet wurde (anläßlich der 
Eroberung von Syrakus im Jahre 212 v. 
Chr.). Überliefert ist allerdings nur der la- 
teinische, nicht dagegen der (hier zurück- 
übersetzte) griechische Ausspruch. Archi- 
medes hat sich nicht nur mit mathemati- 
schen Problemen (Kreisumfang, Kegel- 
schnitte usw.) befaßt, sondern auch ver- 
schiedene physikalische Gesetze ent- 
deckt (archimedische Schraube, Auftrieb 
USW.). 
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ten die Forderung mit einer Genauigkeit, 
die praktischen Zwecken völlig genügte. 
Es waren aber im strengen Sinne nur Nä- 
herungslösungen, die dem angestrebten 
Ergebnis fast unbegrenzt nahe kamen, 68 
aber nicht exakt erreichten. 








Abb. 1: Flächengleichheit 


Mathematiker hatten schon seit der Zeit 
der griechischen Mathematik vermutet, 
daß die Aufgabe unlösbar ist, der Beweis 
wurde jedoch erst in der zweiten Hälfte 
des 19. Jahrhundert von F. Lindemann 
(1852-1939) erbracht. Die Bezeichnung Pi 
geht auf L. Euler (1707-1783) zurück und 
leitet sich vom Anfangsbuchstaben des 
griechischen Wortes „perimetron” (Um- 
fang) ab. Lindemann bewies nun, daß es 
sich bei Pi um eine sog. transzendente 
Zahl handelt. Ohne auf den Beweis näher 
einzugehen, sei folgendes gesagt: Bildet 
man eine beliebige Summe aus Potenzen 
von Pi, gibt es beliebig viele andere sol- 
cher Summen, die dem Wert der zuerst 
gebildeten Summe sehr nahe kommen, es 
gibt aber keine, die exakt den gleichen 
Wert hat. 

Bereits Archimedes schränkte den Wert 
von Pi mit 

ea/i < Pi Ss 22R 

ziemlich genau ein. Später hat man den 
Wert noch wesentlich genauer ermittelt. 
Ludolph van Ceulen (1540-1610) ermittel- 
te 35 Dezimalstellen, indem er sich dem 
Kreisumfang durch regelmäßige Polygone 
(Vielecke) von außen und von innen nä- 
herte. Nach ihm wird Pi auch häufig die 
Ludolfsche Zahl genannt. Die moderne 
Mathematik stellte dann effektivere Metho- 
den zur Verfügung, mit deren Hilfe z.B. 
Z. Dase (1824-1861) 200 Dezimalstellen 
berechnete. 

Es waren aber erst die Großrechenanla- 
gen unseres Jahrhunderts, die wesentli- 
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che Fortschritte brachten. Mit ihrer Hilfe 
sind heute einige Hunderttausend Dezi- 
malstellen von Pi bekannt. Diese Leistun- 
gen sind mit dem Apple selbstverständlich 
nicht zu erzielen, aber bis etwa 11.500 
Stellen sind doch zu erreichen. Wird das 
DOS in die LC verschoben, kann man 
durch Änderung zweier Labels im Quell- 
text 

Zelle 58:N EQU $6200, 

Zeile 59: ERG EQU $BFOO 

ca. 15.500 Stellen berechnen. 
Selbstverständlich muß man sich die Fra- 
ge stellen, ob das Errechnen immer weite- 
rer Dezimalstellen von Pi irgendeinen Sinn 
hat. Für praktische Berechnungen reichen 
einige wenige Dezimalen aus. Auch der 
wissenschaftliche Ertrag solcher Bemü- 
hungen ist nicht sehr erheblich. 

Letztlich bleibt wohl nur die schon zur 
Genüge bekannte Antwort auf Fragen: 
Warum berechnet man immer größere 
Primzahlen, berechnet Fakultäten mit ei- 
ner astronomischen Anzahl von Ziffern 
und stellt immer phantastischere Rekorde 
bei der Berechnung von transzendenten 
Zahlen wie Pi oder der Eulerschen Zahl e 
auf? 

Weil man es kann! 


2. Das Programm 


Die Berechnung ist mathematisch nicht 
sonderlich kompliziert, erfordert aber ei- 
nen sehr großen Rechenaufwand. Um den 
zeitlichen Aufwand einigermaßen in Gren- 
zen zu halten, ist das Programm in Assem- 
bler geschrieben. Es berechnet 1000 De- 
zimalen in ca. 6 Minuten. Der Zeitbedarf 
wächst etwa quadratisch mit der Stellen- 
zahl, d.h. um das 10fache an Stellen zu 
berechnen, benötigt man nicht das 
10fache, sondern das 100fache der Zeit. 
Das aufrufende Applesoft-Programm PI- 
„START bietet ein kleines Menü und erfor- 
dert als Eingabe lediglich die Anzahl der 
Nachkommastellen. Die Ausgabe erfolgt 
wahlweise auf Drucker, Diskette oder Bild- 
schirm. Die vom Programm erzeugten 
Textfiles enthalten die errechneten Ziffern 
im ASCII-Format und erhalten den jeweili- 
gen Filenamen Plx, wobei x für die Anzahl 
der Nachkommastellen steht. 


3. Die Mathematik 


Das Programm benutzt die bekannte For- 
mel von C. F. Gauß: 


& al au 
sn = AB arctan 78 + 32 arctan 57 


4 
— 20 arctan 339 


Hauptproblem ist es also, die Arcustan- 
gensfunktion für Argumente der Form 1/q 


mit a = 18,57,239 beliebig genau zu be- 
rechnen. Für den Arcusiangens gibt es 
zum Glück eine ziemlich einfach gebaute, 
schnell konvergierende Reihenentwick- 
lung, die für diesen speziellen Fall so aus- 
sieht: 


Wieviele Reihenglieder muß man nun be- 
rücksichtigen, um eine vorgegebene Ge- 
nauigkeit zu erreichen? Das kann man 
leicht abschätzen. Sei n die Anzahl der 
Dezimalstellen hinter dem Komma und a, 
das k-te Reihenglied, so muB wegen der 
alternierenden Glieder gelten: 


| Ak = 

also: 
ee 
(2k +1)" 

bzw. für die Kehrwerte: 


(2k +1): get) > 10N 


Diese Ungleichung muß nach k aufgelöst 
werden: 


|0Q4o (2K I 1») ar (2K mE 1) ; 0940 Q >n 


Vernachlässigt man den ersten Term und 
läßt die 1 in der Klammer weg, ergibt sich: 


2k -logunq>n 


und endlich: 


N 


re 
210940 9 


Um mit der Formel von Gauß Pi z.B. auf 
1000 Stellen zu berechnen, braucht man 
nach dieser Ungleichung für den ersten 
Arcustangens (q = 18) ungefähr 400 Rei- 
henglieder, für den zweiten 290 und für 
den dritten 210. 

Insgesamt müssen also ungefähr 900 
Bruchzahlen auf 1000 Dezimalstellen be- 
rechnet und summiert werden. Selbst 
wenn man in einer Sekunde 100 Stellen 
gewinnen könnte, was sicherlich viel zu 
optimistisch ist, dauerte es noch 9000 Se- 
kunden, also 2 1/2 Stunden. 


Zum Glück geht es viel schneller! Wenn 
man nämlich zunächst die ganze Reihe % 
bis a, auf den Hauptnenner bringt, bleibt 
von den vielen Divisionen am Ende nur 
noch eine einzige übrig. Diesen Vorteil 
erkauft man sich allerdings mit dem Nach- 
teil, daß mit riesig großen Zahlen gerech- 
net werden muß. Der Aufwand lohnt sich 
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aber. Für 1000 Dezimalstellen braucht das 
Programm jetzt nur noch 6 Minuten Re- 
chenzeit. 


Sehen wir uns die ersten beiden Glieder, 
ao und a,, der Reihe an und bringen sie auf 
den Hauptnenner: 








1_1 _39,.1_1 _3f-1 
ga 39° 39° q 3g%  3g° 
oder abgekürzt: 

2; 
N -q 
Dazu kommt jetzt: 

Be 
dr 50 
3-1, 1 _ 

3g3 “ 5a 
sg ‚Ssa1,23,1. 
592 309 3 59° 
(3q°-1) : 5q°+3 

3 5 .q> 

oder: 


Zzı5@+N,__Z 





N 5-9 Naq? 
Mit: 
1 
A 7q 
ergibt sich: 


Ze: 7® N __Zs 
Na-7:q7 Na q7 


Man kann die Rekursionsformel für die Z 
bzw. N leicht ablesen: 


Z+4= 2: Pi+1)-qQ +/-N; 
N = N; -(2i + 1) 


Mit diesen beiden Formeln kann man die 
Reihe für arctan 1/q sukzessiv auf den 
Hauptnenner bringen. Schließlich be- 
kommt man einen Zähler (ZJ) und einen 
Nenner 


(N« B a) 


mit denen man die Division ausführen 
muß. 


Das Maschinenprogramm PI besieht im 
wesentlichen aus zwei Teilen: 

— Ein Teil, der Ausdrücke der Form A - 
arctan (1/q) nach der oben beschriebenen 
Methode berechnet und je nach Bedari 
zum Endergebnis (nämlich Pi) addiert oder 
davon subtrahiert. 

— Ein Teil, der es erlaubt, das Ergebnis, 
das im Dualsystem vorliegt, in das Dezi- 
malsystem zu Übertragen. 
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4 hobby 9. 


Die Parameter (z.B. a = 48, q = 18), die 
Anzahl der Reihenglieder, der Modus (ad- 
dieren/subtrahieren) usw. werden von 
dem Applesoft-Programm mit Pokes an 
das Maschinenprogramm übergeben. 


4. Der Algorithmus 


Eine bis ins einzelne gehende Beschrei- 
bung des Programms ist mit vertreibarem 
Aufwand nicht möglich. Es sei an dieser 
Stelle auf das Listing verwiesen. 


Im folgenden wird jedoch versucht, den 
Programmablauf wenigstens zu skiz- 
zieren. 


Um die Übergabe von Parametern einiger- 
maßen darstellen zu können, soll die Be- 
schreibung des Programms in einer Art 
von Pseudo-Pascal erfolgen. 


Es folgt zunächst die Beschreibung des 
Applesoft-Teils. 


BERECHNE PI NACH GAUB; 

BEGIN 

FRAGE ANWENDER NACH STELLENZAHL ;; 
BERECHNE ANZAHL DER BENÖTIGTEN 
REIHENGLIEDER RG1..RG3; 


ATANREIHE (48, 
ATANREIHE (32, 
ATANREIHE (20, 


18, RGl, STORE, STELLENZ.); 
57, RG2, PLUS, STELLENZ.):; 
239, RG3, MINUS, STELLENZ.); 


FOR I := 0 TO STELLENZAHL DO 
AUSDRUCKEN EINER ZIFFER; 
END, 


Beschäftigen wir uns im folgenden nur mit 
der Prozedur ATANREIHE; sie hat fünf 
Parameter. 


ATANREIHE (A, Q, RG, MODE, STZ); 


VAR Z, N : SEHR LANGE GANZZAHL; 
BEGIN 
{ Initialisierung } 


4 :=1; N =]; 
F:= 1; VORZ := -Il; 
FOR I := 1 TO RG DO 
BEGIN 
a u 
MÜLTIELIZIERE Z MIT F: 
MÜLTIPLIZIERE Z MIT OT 2; 
ADDIERE/SUBTRAHIERE 2 
UND N (VORZ); 
MULTIPLIZIERE N MIT F} 
VORZEICHEN UMKEHREN; 
END; 


{ Nenner N ist noch nicht vollständig } 


FOR I 
BEGIN 
MULTIPLIZIERE N MITQ f 2; 
MULTIPLIZIERE N MIT 8; 
MULTIPLIZIERE Z MIT A; 


:= 1 TO RG DO 


{ und schließlich } 
DIVIDIERE Z UND N (MODE) 
END; 


Als nächstes sei exemplarisch die Proze- 
dur MULTIPLIZIERE Z MIT F aufgeführt. 


MULTIPLIZIERE Z MIT F; 

BEGIN 

ERSTELLE MULTIPLIKATIONSTABELLE FÜR F; 
BEREITE MULTIPLIKATION VOR (ADRESSE VON 
Z, LÄNGE VON 2); 

MULTIPLIZIERE ( ZEIGER AUF TABELLE); 

END; 


Die anderen Multiplikationen haben im 
Prinzip den gleichen Aufbau, nur daß im 
Falle vonq T 2 die entsprechende Multi- 
plikationstabelle nur einmal am Anfang er- 
stellt wird. 


Als letztes die Division: 


DIVIDIERE Z UND N (MODE); 
{ zunächst Vorkommastellen } 


HILF := 0; 

WHILE Z >= N DO 

BEGIN 
ADDIERE/SUBTRAHIERE Z UND N (-1); 
HILF == HILE +]: 

END; 


TRAGEIN (HILF, MODE); 
{ jetzt normaler Divisionsalgorithmus } 


REPEAT 
BEGIN 
IFZA>=N 
THEN 
BEGIN 
ADDIERE/SUBTRAHIERE Z UND N (-1); 
TRAGEIN (1, MODE) 
END 
ELSE 
TRAGEIN (0, MODE); 
Z EINE STELLE NACH LINKS SCHIEBEN; 
END 
UNTIL STELLENZAHL ERREICHT; 
END; { Division } 


TRAGEIN {ERGEBNISZIFFER, MODE) 


BEGIN 
CASE MODE OF 
STORE : ERGEBNIS := ERGEBNISZIFFER; 
PLUS : ERGEBNIS := ERGEBNIS + 
ERGEBNISZIFFER; 
MINUS : ERGEBNIS := ERGEBNIS - 
ERGEBNISZIFFER: 
END 
END; 
Literatur: 


1) Heinrich Tietze: Gelöste und ungelöste 
mathematische Probleme, München, 1957 
2) Paul Karlson: Zauber der Zahlen, Frank- 
furt/M-Berlin, 1954 


Kurzhinweise 


1. Zweck: 

Berechnung der Zahl Pi auf bis zu 15.500 
Stellen 

2. Konfiguration: 

II+, Ile oder IIc; 

DOS 3.3 (ggf. 64K-DOS) 

3. Test: 

RUN PI.START 

4. Sammeldisk: 

PI.START 
(Applesoft-Rahmenprogramm) 
T.Pl 

(Big-Mac-Quelltext) 

Pi 

(Assembler-Programm) 
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Die Zahl Pi mit 100 Stellen Genauigkeit 


3.141592653589793238462643383279502884197169539957510 
58209749445923078164062862089986280348253421170679 


PI.START 


1000 REM ZEHNERLOGARITHMUS 

1010 DEF FN ZL(X) = LOG (X) / LOG (10) 
1020 DEF FN H(X) = INT (X / 256) 

1030 DEF FN L(X) = X - 256 = FN H(X) 


1040 X = 3 * 256 + 10: POKE X,44: POKE X + 1,18: POKE X + 2,192: 
POKE X + 3,44: POKE X + 4,0: POKE X + 5,192: POKE X + 6,16: 


POKE X + 7,251: POKE X + 8,44: POKE X + 9,16: FOKE X + 
10,192: POKE X + 11,96:H0 = X: REM WAIT 


1050 TEXT : HOME :A = 1:B=| 

1060 PRINT : PRINT CHR$ (4) ;"BLOAD PI" 

1070 HOME : INVERSE PRINT "PROGRAMM ZUR BERECHNUNG VON PI": 
NORMAL 


1030. PRINT ; PRINT "Vo Sue - —) 

1090 PRINT "AUSGABE AUF : "; 

1100 IF A= 1 THEN INVERSE : 
"/BILDSCHIRM/DISK" 

1110 IF A = 2 THEN PRINT "DRUCKER/";: INVERSE : PRINT 
"BILDSCHIRM"; : NORMAL : PRINT "/DISK" 


PRINT "DRUCKER"; : NORMAL : PRINT 


1120 IF A = 3 THEN PRINT "DRUCKER/BILDSCHIRM/"; : INVERSE : PRINT 


"DISK": NORMAL 
1130 PRINT 
1140 PRINT "D)ATEI Tr 


1150 IF B= 1 THEN INVERSE : PRINT "BERECHNEN"; : NORMAL : PRINT 


"/VON DISKETTE" 
1160 IF B= 2 THEN PRINT "BERECHNEN/";: INVERSE : PRINT ''VON 
DISKETTE": NORMAL 
1170 PRINT : PRINT "S)TART" 
1180 PRINT : PRINT "E)NDE" 
1190 PRINT : PRINT "------------—-- 
1200 PRINT : PRINT "-> ";: GET T$ 
1210 IF T$ = "E" THEN PRINT "ENDE": END 
1220 IF T$ = "S" THEN 1290 
1230 IF T$ = "A" THEN 1270 
1240 IF T$ < > "D" THEN 1070 
1250 B=B+ 1: IFB > 2 THENB 
1260 GOTO 1070 
1270 A=A+ 1: IFA > 3 THENA 
1280 GOTO 1070 
1290 REM START 
1300 C=A+10 *B 
1310 IF C = 23 THEN PRINT CHR$ (7); CHR$ (7);: GOTO 1070 
1320 IF C = 21 THEN 1750 
1330 IF C = 22 THEN 1910 
1340 GOSUB 2030 
1350 RESTORE :K = 3 & 256:RECHNEN = 28 x 256:DRUCKEN = RE + 3 
1360 READ X,Q,WZT 
1370 IF X = - 1 THEN 1460: REM AUSGABE 
1380 BS = NN / FN ZL{R2) /8 +1 
1390 POKE K, FN L{BS): POKE K+ 1, FN H(BS) 
1400 AZ =NN / 2 / FN ZL(N) 
1410 POKE K + 2, FN L{AZ): POKE K + 3, FN H(AZ) 
1420 POKE K + 4, FN L{Q « 9): POKEK +5, FNH(Q «= Q) 
1430 POKE K + 6,0: POKE K + 7,X: POKE K + 8,WZT 
1440 HGR : CALL RECHNEN 
1450 GOTO 1360 
1460 TEXT : HOME : REM AUSGABE 
1470 IF A = 3 THEN 1650: REM DISK 
1480 IF A = 2 THEN 1600: REM BILDSCHIRM 
1490 PRINT : PRINT CHR$ (4); "PR#1" 
1500 PRINT "PI AUF ";NN - 10;" STELLEN ": PRINT 
l___ 1: CALL DR 
j510 PRINT We ZZ =0.2 0 
1520 FOR X = 1 TO NN - 10 
1530 CALL DR:Z2 = ZZ + I 
1540 IF ZZ = 10 THEN 22 = 0:2 = Z+ 1: PRINT" "; 
1550 IF Z > 5 THEN Z = 0: PRINT 


1l 
m 


I 
ul 


1560 NEXT 
1870 PRINT : PRINT "------—--— ü 
1580 PRINT : PRINT CHR$ (4); "PR#0" 


1590 &0TU 1070 

1600 REM BILSCHIRM 

1610 CALL DR: PRINT". 

1620 FOR X = 1 TONN — 10 

1630 CALL DR: IF PEEK {12 & 4096) > 128 THEN CALL HO 
1640 NEXT : PRINT : PRINT "<TASTE>";: CALL HO: GOTO 1070 
1650 REM DISK 

1660 PRINT CHR$ (4); "OPEN";NA$: PRINT CHR$ (4); "CLOSE" 
1670 PRINT CHR$ (4); "DELETE" ;NAS$ 

1680 PRINT : PRINT CHR$ (4); "OPEN"; NA$ 

16980 PRINT : PRINT CHR$ (4); "WRITE" ;NAS 

1700 FOR X = 0 TO NN - 10 


1710 
1720 
1730 
1740 
1750 
1760 
1779 
1780 
1790 
1800 
1810 


1820 
1830 
1840 
1850 
1860 
1370 
1880 
1890 
1900 
1310 
1920 


1930 
1940 
1950 
1960 
1970 
19808 
1990 
2000 
2010 
2020 
2030 
2040 
2050 


2060 
2070 
2080 
2090 
2100 


PI 


CALL DR 

NEXT 

PRINT : PRINT CHR$ (4); "CLOSE" 
GOTO 1070 

REM VON DISK 

GOSUB 2030 

PRINT CHR$ (4); "PR#1" 

PRINT : PRINT CHR$ (4}; "OPEN" ;NA$ 
PRINT CHR$ (4); "READ" ;NA$ 

Zi 02-0 

PRINT "PI AUF ";NN — 10;" STELLEN": PRINT 


GET X$: PRINT CHRS$ (4) ;X$; !".." 
FORX=1TONN - 10 

GET X$ 

PRINT CHR$ (4):X$;::22 = 22 + 
IE 22 = 10 THEN 22 -0:.2 2 
IF Z>5 THEN Z = 0: PRINT 
NEXT : PRINT : PRINT "0-11 
PRINT CHR$ (4};"PR#O" 

PRINT CHR$ (4); "CLOSE": GOTO 1070 

GOSUB 2030 

HOME : PRINT "PI AUF ";NN — 10;" STELLEN": PRINT 
PRINT : PRINT CHR$ (4); "OPEN"; NA$ 

PRINT CHR$ (4A); "READ'";NA$ 

GET X$: PRINT CHR$ (4) ;X$;"," 

FOR X = 1 TO NN - 10 

GET X$: PRINT CHR$ (4):X$; 

IF PEEK (12 * 4096) > 128 THEN CALL HO 

NEXT 

PRINT : PRINT "<TASTE>";: CALL HO 

PRINT : PRINT CHR$ (4); "CLOSE" 

GOTO 1070 

REM ANZAHL DER STELLEN/FILENAME 

INPUT "ANZAHL DER STELLEN : ";NN 

IF NN > O THEN NAS = "PI" + STR$ {NN):NN = NN + 10: 
RETURN 

GOTO 2040 

DATA 48,18,64 

DATA 32.57.08 

DATA 20,239,128 

DATA -1.0,0 


1 
Euler 2 U NSG NE 


BSAVE PI, A$1C00, L$0377 


l Bere 
2 * Berechnung der * 
3 # Kreiszahl Pi * 
4 * * 
5 * Roland Fietkau * 
6 3 * 
7 * Juli 1985 * 
8 f ö 
9 LISTET TTS IST II SIE DET 
10 ORG $1C00 

nl PTR] EQU 800 


12  PTRILO EQU PTRI 
13  PTRIHI EQU PTRILO+ 
14 LENZLO EQU $02 

15 LENZHI EQU $03 

16 PTR2 EQU $04 

17 PTR2ZLO EQU PTR2 

18 PTR2HI EQU PTR2LO+HL 
19  LENNLO EQU $06 

20  LENNHI EQU $07 

21 PTRE EQU $08 

22 PTRELO EQU PTRE 

23  PTREHI EQU PTRELO+H 
24 UELI EQU $FC 

25  UE2 EQU $FD 

26 SAM8BBIT EQU $FE 

27  ZAEHLl EQU $40 

28 ZAEHL2 EQU $Al 


29 AP] EQU $A0 
30  FHI EQU $2FE 
si BLO EQU $2FD 
32  VORZ EQU $2FF 
35 * 


54 * Werden vom BASIC-Programnm 
35 * vorbesetzt 

36 * 

37  BASLIST EQU $300 

38 BINSTLO EQU BASLIST+O 

39 BINSTHI EQU BASLIST+1 

40 ANZLLO EQU BASLIST+2 

41 ANZLHI EQU BASLIST+3 
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42  02LO EQU BASLIST+4 
43  Q2HI EQU BASLIST+5 
4 09 EQU BASLIST+6 
45 VORFKTOR EQU BASLIST+7 
46  WZT EQU BASLIST+8 
47  PIANFLO EQU $316 

48  PIANFHI EQU $317 

49 * 

50  AQTABL EQU $1600 

51 OQTABM EQU $1700 

52  QTABH EQU $1800 

53 * 

54  FTABL EQU $1900 

55  FTABM EQU $1A00 

56  FTABH EQU $1B00 

Se * 

58 2 EQU $2000 

59 N EQU $5800 

60  ERG EQU $9500 

61 %* 


B% * Bei STARTIl aufgerufen, berechnet 
63 *» das Programm den Arcustangens 


64 * für die vom BASIC-Programm 
65 * übergebenen Parameter 

66 * 

67 STARTI EQU x* 

68 * 


59 * Bei START2 aufgerufen, wird die 
70 * berechnete Zahl ins Dez.-Systenm 
Sl * umgewandelt und via $FDED 

72 * ausgegeben. 


13 * 
1600: 4C 86 1E 74 START2 JMP ARCTAN 
1603: 49 0A ie LDA #10 
10605: AO 00 76 LDY #$00 
1607, :202E3 107 JSR FAKTTAB 
To * 
79 * umwandeln 
80 * 
1C0A: AD 00 985 81 LDA ERG 
1C0D: 18 82 GLE 
1C0E: 69 BO 83 ADC #$BO 
1010: 20 ED FD 84 JSR $FDED 
1013: A9 00 85 LDA #$00 
1615: 8D 00 985 86 STA ERG 
87 * 
1C18: AC 17 03 88 LDY PIANFHI 
161B: AD 00 03 89 LDA BINSTLO 
I1Cl1E: AE 01 03 90 LDX BINSTHI 
1021: 20 ZF 1C 851 JSR PARMl 
1624: AD 16 03 92 LDA PIANFLO 
1627: 25 00 93 >14 SPTRILO 
16029: A2 19 94 LDX #>FTABL 
1C2B: 20 43 1C 3 JSR MULTPL 
1C2E: 60 96 RTS 
97 * 
98 * Sammlung verschiedener 
99 * Unterprogramme 
100 x 
181 * MULTIPLIKATION 
182 x 
183 PARMl EQU x 
14 * Bereitet Multiplikation vor. 
165 & Anfangsadresse der langen Zahl 
105 x* kommt nach PTRI1. 
187 x Einerkomplement der Länge 
188 x& in ZAEHLl, ZAEHL2 
189  * 
118 x» YREG = ANFANGHI 
111 x ACC = LAENGLO 
112 x XREG = LAENGHI 
113 *+ 
lC2F: 84 P@l 114 ST  PIRIHI 
115 x Low-Byte ist immer Null 
1031: AB 99 116 LDY #$ß9 
1833: 84 09 117 ort. PIRILO 
1035: 49 FF 118 EOR #$FF 
1037: 85 AB 119 STA ZAEHLI 
1039: 784 128 TXA 
1C3A: 49 FF 121 EOR #S$FF 
1630: 85 Al ler STA ZAEHL2 
123 * 
124 x Übertrag-Bytes löschen 
125  * 
1C3E4 84 FC 126 STY Ues ;YREG = 
1048: 84 FD IAF set UE2 
1642: 69 128 RTS 
129 x 
138 MULTPL EQU x 


131 % Setzt die Adressen der richtigen 
132 x Tafel in die Mult.-Routine ein, 


133 & multipliziert und gibt 
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Semjan 


presents... 


e CP/M Plus System für Apple //e,c 


CIRTECH CP/M Plus Modul mit Betriebssystem CP/M 3.0 
Z8OH mit 8MHZz, 128K RAM, Drucker-Spooler mit 12K RAM. 
— Kompatibel zu CP/M 2.20 und 2,23. Volle Maus-Funktion. 
— Einsatz von: WORDSTAR, dBASE, MBASIC, PASCAL etc. 


KO010 Apple //c CP/M Plus System 


Ko11 WORDSTAR/MAILMERGE und K010 


KO012 Apple //e CP/M Plus System 


K013 WORDSTAR/MAILMERGE und K012 
K019 Apple //c CP/M Modul V. 2.23 o. Betr. $ys. 


DM 884,00 
DM 1270,00 
DM 544,00 
DM 930,00 
DM 390,00 


e 1 MB RAM Karte für Apple //+, e 


— CIRTECH FLIPPER Karte wird komplett mit 1 MB RAM geliefert, 

— Super schneller Datenzugriff, Max. 6 MB RAM pro Apple /7, 

— 100 % Kompatibel mit PRODOS (Appleworks), DOS, PASCAL, CP/M. 
— Kein 'patchen’ notwendig, Einsatz in jedem Slot möglich, 

K070 Apple //+, e Flipper Karte mit 1 MB RAM. 


DM 1588,00 


e Champion Karte für Apple //+, e 


— CIRTECH Parallele Text- und Grafik-Druckerkarte komplett mit Kabel. 

— Mit 16K oder 64K RAM Puffer, 40/80 Zeichen Dump, 

— Einsatz von DOS, PRODOS (Appleworks), PASCAL, CP/M 

— Volle Apple //e Graphik, Serieller Ausbau möglich. 

K030 Apple //+, e Champion Interface 

K031 Apple //+, e Champion Interface 
f. Imagewriter 

K032 Apple //+, e Champion Interface 16K RAM DM 431,00 

K033 Apple //+, e Champion Interface 64K RAM DM 544,00 

Auf alle Produkte 12 Monate Garantie. 


Neuen Katalog anfordern. Händleranfragen willkommen! 
Fragen Sie Ihren Fachhändler nach CIRTECH-Produkten. 


M.Semjan 
Computer Systeme 


Postfach 90 01 64 - 6000 Frankfurt/M 90 
Tel. 069-70 1853 - Mo-Fr 10.30-15 Uhr 


























Bun! 








Noch universeller 
und noch komiortabler ... 


Betriebssysteme 
DOS 3.3 
DiversiDOS 2-c, 4-c, 
ProDOS 1.01,110, 111 
Pascal 11,12 

ı GP/M 2.20, 2.23, 2,26 


SLOT-Unabhängig 





DM 222,00 


DM 299,00 


Anschlußfertig 
_'fürApplell,/e... 





Die bisherigen Vorzüge 
bleiben erhalten, wie 

I 
Autopatch-Boot 
automatische Erkennung und 
Erweiterung der Betriebssysteme 
während des Bootvorgangs 
(Betriebssystem auf der Boot- 
Diskette bleibi unveranden) 





erphi 

Doppellaufwerk DL 280 
2 Lauiwerke 

mit je 640 kB formatiert 


| im Gehäuse incl 


hi 


‚ep 
Autopatch-Controller AFDC 3 





Handbuch und Diskette mit 
Dienstprogrammen 


Verkaufspreis ıncl. MwSt 
DM 1.298,— 


‚ erphi 
 Floppy-Subsystem FSS 280 


fur kommerzielle Anwendungen 
2 Laufwerke 

mit je 640 kB formatiert 

im Gehäuse mil eigener 


ı Stromversorgung incl 


erp 
Autopatch-Controller AFDC 3 


Handbuch und Diskette mit 


ı Diensiprogrammen | 


Verkaufspreis incl MwSt 


|| DM 1.698,- 


ı Originalsystem-Boot 
| Yon herkömmlichen Apple®- 
| Disketten (unabhängig 


vom Laufwerksformat) 
weiterhin moglich 


Problemloses Übertragen 
herkömmlicher Apple®-Soflware 
auf Disketten höherer Kapazität 
durch SIM 35-Hilfsprogramm 
(simuliert 35-Spur-Laufwerk 
unabhängig vom tatsachlichen 
Laufwerksformat) 


Dammweg 3 

D-80911 Großhelfendorf 
Telefon (080 95) 441 
Teiex 528021 erphi d 
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48 


1643: 
1046: 
1047: 
1CAA: 
1C4B: 


1C4E: 
lC4F: 
1651: 
SR: 
1055: 
1057: 
1059: 
1650: 
1C5E: 
1068: 
1063: 
1065: 
1667: 
1068: 
1C6A: 
1C6C: 
LC6E: 
1670: 
1612: 


1074: 


1676: 


1078: 
107A: 
1676: 
LCTE: 
her: 
1581: 
1685; 
1084: 
1086: 
1688: 
1689: 
IC8B: 
1C8C: 


1C8D: 
1CBF: 
1691: 
1093: 


1696: 
1698: 
1C9B: 


1C9E: 
1CABß: 
1642: 
1644: 
IGAT: 
1CA89: 


ICAG: 
1CAD: 
1CAF: 
1CB1l: 
1CB3: 
I6CBS: 


1CB6: 
1CB8: 
1CBA: 
1ICBC: 
1CBF: 
16C1: 
1064: 
1665; 
IEG7: 


8E 
E8 
8E 
E8 
SE 


84 


Ad 


AB 
85 
D® 
69 
AS 
91 
c8 
A5 
DB 
1517) 
91 
c8 
68 


98 


85 
sp 
E6 
60 


AB 
AS 
A6 
20 
a2 
29 
98 
65 
85 


54 
5B 


62 


d9 


DB 


FG 
FD 
61 


FC 
0 


FD 
81 


BB 


29 
d2 
83 
2F 


16 
Ag 
AC 


28 
2 
B3 
2F 
19 
43 


82 
B2 
2 
83 


58 
D& 
d7 
2F 
19 
43 


d6 
d6 


1C 


IC 


1C 


1l 


22 


33 


1C 


1C 
1C 


1C 


1C 


1C 


134 
135 
136 


138 
139 
148 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 
152 
153 
154 
155 
156 
187. 
158 
159 
16® 
161 
162 
163 
164 
165 
166 
167 
168 
159 
178 
171 
172 
173 
174 
175 
Ir 
LITT 
178 
179 
189 
181 
182 
183 
184 


185 
186 
er 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 
198 
199 
206 
281 
202 
203 
204 
285 
2B6 
207 
208 
269 
218 
ell 
212 
213 
214 
215 
216 
217 
218 
219 
220 
R2l 
aR2 
223 
ard 


XREG 
YREG 


) 


“*R KK %* 


STı 
INX 
STX 
INX 
ST 
* 
CLC 
MULTPI LDA 
TAX 
MTABl LDA 
ADC 
STA 
MTABZ LDA 
ADC 
STA 
MTABS3 LDA 
ADC 
STA 
INY 
BNE 
ING 
INC 
BNE 
INC 
BNE 
* 
* 
STY 


* PTRl zeigt jetzt auf das erste 


TABHIBYTE 


MTABI+2 
MTAB2+2 


MTABS+Z 


[PIRL),Y 


$11BB,X 
UEL 
(PERL), 
$2200,X 
UE2 

UEL 
$3300,X 
+59 

UER 


*+4 

PTRIHI 
ZAEHL1 
MULTP1 
ZAEHL2R 
MULTPI 


PTRILO 


* Byte über der alten Zahl 


LDY 
* 
LDA 
ORA 
BNE 
RTS 
UEUNGL® LDA 
STA 
INY 
LDA 
BNE 
RT 
UE2UNGLB STA 
INY 
RTS 
YREG = Wert, 


“*..* % 


ZMALO2 EQU 
* Zähler 
LDY 
LDA 
LDX 
JSR 


LDX 
JSR 
JMP 
ZMALF EQU 


+500 
UEl 

UE2 
UEUNGLA 


UEL 
(PTR1),Y 


UE2 
UE2ZUNGL 


FEIRLI,Y 


die korrigierte Länge zurück 


‘beide 9 


;UE2 


um den die Länge 


* 


+>2Z 
LENZLO 
LENZHI 
PARML 


#>QTABL 
MULTPL 
NEULAENG 
* 


* Zähler := Zähler *» F 


LDY 
LDA 
LDX 
JSR 
LDX 
JSR 


#>Z 
LENZLO 
LENZHI 
PARMIl 
#>FTABL 
MULTPL 


* Länge korrigieren 


NEULAENG EQU 
TYA 
ADC 
STA 
BCC 
INC 
RTS 
NMALF EQU 


= 


LENZLO 
LENZLO 
x*+4 

LENZHI 


* 


* Nenner := Nenner x F 


LDY 
LDA 
LDX 
JSR 
LDX 
JSR 
TYA 
ADC 
STA 


#>N 
LENNLO 
LENNHI 
PARMl 
#>FTABL 
MULTPL 


LENNLO 
LENNLO 


vom aufrufenden Programm 
korrigiert werden muß (9,1,2) 


;= Zähler «Q f 2 


;:C 


il 


) 


IC69: 
I6CB: 
1CCD: 


1CCE: 
1CD®: 
1CD2: 
1CD5.: 
16D8: 
LACDB: 


LCDD: 
1CEß: 
1CE1: 
1CE3: 
IGCES: 
ICHT: 
1CBEA: 
1CED: 
1CFB: 
ICF2: 
ICFS: 
LCEBG, 


1CF8: 


1CF9: 
ICFB: 
ICFD: 
1DdB: 
1D#3: 
1D886: 


1D98: 
1D9B: 
1DdC: 
1DOE: 
1D11: 
1D12: 
I1D1s: 
1D18: 
3D1B: 
1D1D: 
1D28: 
1D21: 
1D23: 


1D24; 
1D26: 
1D28: 
1D2A: 


1D2G: 
lD2E: 
1D39: 


1D32: 
1034; 
1D36: 
1D37: 
1D39: 
1D3B: 


1D3D: 
1D4$: 


1D42: 
1D43: 
1D45: 
1D47: 
1D49: 
1D4A: 
1D4C: 


90 
E6 
69 


85 
&9 
8D 
8D 
8D 
Az 


BD 


65 
9D 
98 
7D 
9D 
BD 
69 
9D 
E8 
Dp 
6d 


BD 
18 
65 
SD 


7D 
9D 
BD 
69 
9D 
E8 
D® 
69 


A5 
49 
AA 
AS 
49 
85 


2C 
18 


38 
Bl 
Fl 
31 


Dp 
E6 


B2 
#7 


AD 
17) 
17% 
1) 
7) 
B1 


FF 


AD 
Ha 


iss 


FF 
n® 
0 


Hs) 


Ad 
uf") 
17) 
dB 
#8 
Bl 


PR 


d6 
FF 


87 
FF 
Ad 


FF 
25 


an 
da 
PB 


54 
Öl 


15 


16 
16 


17 


19 
1A 
1B 


19 
1A 
1A 


1B 


B2 


225 
226 
227 
228 
229 
236 
23] 
232 
233 
234 
235 
236 
237 
238 
239 
Daß 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
266 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
286 
281 
282 
283 
284 
285 
286 
287 
288 
289 
299 
291 
292 
293 
294 
295 
296 
297 
298 
299 
3d8 
381 
302 
303 
394 
365 


sß6 
307 
308 
309 
31% 
311 
312 
313 
314 
315 
316 


BCC 

ING 

RTS 
* 


*+4 
LENNHI 


* MULTIPLIKATIONSTABELLE 


* ACC = kleine Zahl — Low-Byte 


* YREG= " HI 
QUADTAB EQU 
STA 
LDA 
STA 
STA 
STA 
LDX 
QTABL EQU 
LDA 
CEG 
ADC 
STA 
TYA 
ADC 
STA 
LDA 
ADC 
STA 
INX 
BNE 
RTS 


Das gleiche 
mit anderen 


“«kKk %* 


FAKTTAB EQU 
STA 
LDA 
STA 
STA 
STA 
LDX 

FTABl EQU 
LDA 
CLC 
ADC 
STA 
TYA 
ADC 
STA 
LDA 
ADC 
STA 
INX 
BNE 
RTS 


1,2 >= 3+ 
2, 2ı=2- 
(Bedingung 


EHk<KEEHrFK HR 


ZPLMINN EQU 
LDA 
STA 
LDA 
STA 


LDY 
STY 
STY 


* * 


* 

APl 

+59 
QTABL 
QTABM 
QTABH 
#501 

%* 
QTABL-1,X 


APl 
OTABL,X 


;* HIBYTE 


QTABM-1,X 
QTABM,X 
QTABH-1,X 
+$00 
QTABH, X 


QTABl 


nochmal aber 
Adressen 


* 

APl 

+500 
FTABL 
FTABM 
FTABH 
#501 

= 
FTABL-1,X 


APl 
FTABL,X 


;* HIBYTE 


FTABM-1,X 
FTABM,X 
FTABH-1,X 
#509 
FTABH,X 


FTABL 


ADDIEREN, SUBTRAHIEREN 


N 
N 
ist N <= 2) 


* 

#>4 
PTRIHI 
#>N 
PTRZHI 


#599 
PTRILO 
PTR2LO 


Schleifenlänge wird durch 


* die Länge des Nenners bestimnt 


LDA 
EOR 
TAX 
LDA 
EOR 
STA 


LENNLO 
#$FF 


LENNHI 
#$FF 
ZAEHL1 


* Abziehen oder addieren? 


BIT 
BPL 


* Abziehen 
SEC 

ZMIl LDA 
SBC 
STA 
INY 
BNE 
ING 


VORZ 
ADDIEREN 


(PTR1),Y 
(PTR2).Y 
(PIRI).® 


*+6 
PTRIHI 


Peeker 5/86 












1D5ß: 
1051; 
1953: 
1055: 


1D57: 


1D59: 
1D5B: 
1D5D: 
1D5F: 
1D6ß: 
1D62: 
1D64: 
1D66: 


1D87 : 
1D68: 
1D6A: 
1D6C: 
1D6E: 
1D6F: 
1D71: 
ID: 
1D75: 
1D76: 
IN78; 
IDTA: 
1D7G: 
1D7E: 
1D8®: 
1D82: 
1D84: 
1D85: 
1D87: 
1D89: 


1D8B: 
1D8C: 
1D8D: 
1D8F: 
1D91: 
1D93: 
1D95: 
1D97: 
1D99: 
1D9B: 
1D9D: 


1D9E: 
1DA®: 
1DA2: 
1DA4: 
1DA6: 


1DA8: 
1DAA: 
1DAC: 
1DAE: 
1DB®: 
1DB2: 
1DB3: 
1DB5: 
1DB6: 
1DB7: 
1DB8: 
1DBA: 
1DBC: 
1DBD: 
1DBF: 
1061? 
1D63: 


E8 
D® 
E6 
D® 


BO 


Bl 
E9 
91 
c8 
D® 
E6 
99 
6ß 


18 
Bl 
71 
9 
c8 
D® 
E6 
E6 
E8 
D® 
E6 
D® 
90 
Bl 
69 
91 
c8 
D® 
E6 
Bß 


98 
38 
E5 
A5 
E5 
c9 
Bß 
E6 
D® 
E6 
69 


A5 
c5 
A5 
E5 
Bß 


AA 
A6 
99 
AA 
A6 
c8 
DP 
E8 
18 
8A 
69 
85 
8A 
69 
85 
A9 
85 


Peeker 5/86 


Fo 
AB 
EC 


dD 
]0) 
dd 


02 
Öl 
F3 


01) 
0) 
4 
05 


Fo 
AB 
EC 
IF 
0 
0 
00 


#2 
Öl 
F3 


20 
Öl 


58 
#5 
0) 
01) 











318 
319 
320 
321 
322 
323 
524 
325 
326 
527 
328 
329 
330 
331 
352 
333 
5354 
335 
336 
337 
538 
339 
340 
341 
342 
343 
544 
345 
346 
347 
548 
349 
359 
351 
352 
353 
554 
355 
356 
357 
358 
359 
36% 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
7.1 
372 
373 
374 
375 
376 
377 
378 
379 
389 
381 
382 


384 
385 
386 
387 
388 
389 
399 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
Aß6 
497 
408 


*DURCH? 


* Ja! 


* Muß Übertrag noch berück- 
* sichtigt werden? 


* Jal 
ZMI2 


ZMIRTS 
* 


ADDIEREN 
* Erster 


* 


ZPL1 


ZPL2 


* 


* Durch Addieren kann sich die 
* Länge von z erhöhen 
* PTRl — LENZ < Anfang von Z? 


ZPLRTS 
* 





INC 


INX 
BNE 
INC 
BNE 


BCS 


LDA 
SBC 
STA 
INY 
BNE 
INC 
BCC 
RTS 


EQU 


Teil 


CLC 
LDA 
ADC 
STA 
INY 
BNE 
INC 
INC 
INX 
BNE 
INC 
BNE 
BCC 
LDA 
ADC 
STA 
INY 
BNE 
INC 
BCS 


TYA 
SEC 
SBC 
LDA 
SBC 
CMP 
BCS 
INC 
BNE 
INC 
RTS 


* DIVISION 


* 


VERGLZN EQU x 

Vergleicht Zähler mit Nenner 
und entscheidet, 
abgezogen werden kann 
oder nicht 


KK KKRKKKR 


* Länge von N 


Zunächst die Längen von 
Zähler und Nenner vergleichen 


LDA 
CMP 
LDA 
SBC 
BCS 


LDY 
LDX 
BCC 


LZOFFSET LDY 


VERG2 





LDX 
INY 
BNE 
INX 
CLC 
TXA 
ADC 
STA 
TXA 
ADC 
STA 
LDA 
STA 
STA 








PTR2HI 







ZMIl 
ZAEHL1 
ZMIl 






‚nein 








ZMIRTS ‚nein 






(PIRI),N 


#+$09 
(PTRl),Y 








x*+4 
PTRIHI 
ZMI2 









* 
analog zu oben 









(PTR1),Y 
(PTR2),Y 
(PTR1),Y 





*+6 
PTRIHI 
PTR2HI 







ZPL1 
ZAEHL1 
ZPL1 
ZPLRTS 
(PTR1),Y 
#$00 
(PTR1l),Y 










x*+4 
PTRIHI 
ZPL2 














LENZLO 

PTRIHI 

LENZHI 

#>Z 

ZPLRTS >= 
LENZLO 

x*+4 

LENZHI 














ob Nenner 









LENZLO 
LENNLO 
LENZHI 
LENNHI 
LZOFFSET 
als Offset 
LENNLO 
LENNHI 
VERG2 
LENZLO 
LENZHI 














*+5 








#>Z 
PTRIHI 








#>N 
PTR2HI 
#509 

PTRI1LO 
PTR2LO 
















Appie und IBM 
kompatible Computer 


16K, Z80, Diskcontroler je. . 75,- 
80 Zeichenkarte mit Softswitch 

2 Zeichensätze Eu . 149,— 
Ile-kompatibles Motherboard 
ohne Firmware en . 498,— 
Erphi-controler mit Autopatch . 285,— 
TEAC FD-54A mit Apple-Bus . 298,— 
TEAC FD-55B 2 x 40 Track . . 375,— 
TEAC FD-55F 2 x 80 Track . .  . 395,- 
FD4 Spezialcontroler für Laufwerke 
mit bis zu2x 80 Tack . . . . .120,- 
OLYMPIA compact NP. . . . . 1298,- 
Monochrome Monitore . ab 375,- 
Farbmonllore”.. .„. . ..... ab 998,— 
Tastaturen für IBM und Apple . ab 298,- 
512K-RAM-Karte mit 256 K 
bestückt . . . . . .....  298-— 
Apple Super-Modem-Karte inkl. dt. 
Software und dt. Handbuch . 348,— 


Versand nur per Nachnahme oder Vorkasse. 


Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 


128K Karte (Saturn kompatibel) . 248,— 


Ulf Mohwinkel Electronic 
Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 

Telefon 0214/93781 od. 950 60 


Berlin im Apple II+ 384 x 288 Bildpunkte. 


VIDEO-1000 


DIGITIZER ZUM APPLE Il 


INTERFACE + 295,— DM 


SOFTWARE 


* Auflösung 384 x 288 Bildpunkte 
* für TV, Recorder und Kamera 

* Aufnahmezeit 20 msec 

* Umrechnung auf HIRES-Seite 


Erweiterte Software z. B. Bilder mit bis zu 500.000 Bildpunkten, 
7 Graustufen, Double Hires, Kurzfilmerstellung etc. auf Anfrage. 


256 K RAM-Karte mit Software . 

1024K RAM-Karte mit Software . : 
16 K AKKU-RAM-Karte mit Software . 
128K AKKU-RAM-Karte mit Software . 


Demodisk seo: n Einsendung von 10 DM oder V-Scheck, Info gratis. 
Versand p. NN. 


oder beim Fachhändler. 


Ing. Büro M. Fricke - Neue Straße 13 - 1000 Berlin 37 
Telefon 030/801 5652 





"Design your own chip“ 


PAL-PROGRAMMER 
für APPLE II (e) 


Vollständiges Paket für den Entwurf 

und die Programmierung von PAL ICs: 

e Apple Slotkarte mit Zero-Force Fassung 

e programmiert 20- und 24 pol. PALs 

e Schutz vor Kopie und Nachbau durch 
Brennen der Security-Fuse 


Menügesteuertes Autostart-Softwarepaket: 

e Eingabe, Editierung und Speicherung 
Ihres PAL-Entwurfes 

e PAL-Assembler übersetzt die gewünsch- 
ten Logikfunktionen in das entsprechende 
Fuse-Pattern (Programmiermuster) 

e Brennen, Lesen, Kopieren auf Knopfdruck 

e Screen-Editor für Fuse Pattern 

e ausführliche Dokumentation 

e DM 1103.52/1 Jahr Garantie 


II 
NV 


NUCLEAR INTERFACE 
Datentechnik für 
Strahlungsmeßgeräte GmbH 
Goldstraße 64, 4400 Münster, 
Telefon: 02 51-27 35 85 








. 495,— DM 
. 995,— DM 
. 175,— DM 
. 595,— DM 








R electronic. 


Neue Preise # 5 


IMB-PC/XT-COMPATIBLE COMPUTER + ZUBEHÖR 
Mainboard XT f. 16bit + 256K-RAM + 8 Slots, Leerkarte 
Mainboard XT-640 K (on Bord) f. 16 Bit + 8 Stots Leerkarte 
Disk Controller leer (f. 4 x 360KB-Drives) 

Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 
Color RGB + Video Graphik Leerkarte 

Parallel Printer Leerkarte 

512K-RAM Leerkarte 

Disk-Muliti /O Leerkarte, (f. 3X360 K-Drive, 2xRS 232 1xpar. Printer 
Int., Game/Joystick Port, Real Time Clock/Kalender gepuff.) 
384 K-Multifunktions Leerkarte, (RS 232, par. Printer Int., 
Game/Joystick Port, Real/time Clock/Kalender gepuffert) 










Prototype/Lochraster Leerkarte, durchkontaktiert 

WEILL-PEIG BUELL TE LT]n Tefal olerzige Mole lzl 

640 K mit Addr. auf Karte aufr.) + Boot-ROM + 8 Slots best. + geprüft 315,-- 
Mainboard XT-640 f. 16 bit CPU, OK (bis 640 K-on board aufr.) 327,-- 
Mainboard XT-640 w.o. jedoch 256 K-RAM best. + gepr. 

WEILLTIEIG DEE UI -Te [efel LO ET LES TTıfe Ketzjeigili: 
64KB-RAM-Chip-Aufrüstsatz (9 Stück) einzeln geprüft! 

256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft 

Disk Controller gepr. (f. 4 x 360 KB-Drives)(Extra Kabel = 39,--) 
Monochrome Karte geprüft 

Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 

Color RGB + Video Graphikkarte gepr.' 

Parallel Printer-Karte gepr. o. Kabel (Extra Kabel = 49,-) 

512K-RAM-Karte gepr. (OKB) 129,-- 
384K-Multifunktionskarte, RS 232, par. Printer, Interi. Game/Joystick Port, 
Real Time Clock gepuff., OK + RAM-Disk/Spooler/Uhr Softw. 325,-- 
Disk Multi I/O Karte (f. 2x360 K-Drive, 2xRS 232, 1xpar. Printer Int., 
Game/Joystick Port, Real Time Clock/Kalender gepuff.) 388,-- 
Profi-Funktionstastatur ASCII + 15er Block ab 215,--/dt. ab 245,-- 
135W/150W-Netzteil mit eingebautem Ventilator, Kurzschlußf. 219,--/279,-- 
360KB-Diskdrive Slimline (Track Access Time <2 m S), R/W gepr. 

Joystick f. IBM + Compatible 

LEITETE EST EICH AS Eee idell x 

PC/XT - KOMPLETT-SYSTEME EINGEBAUT UND GEPRÜFT 

XT-640, 16 bit-Rechner (incl. Boot-Eprom) 256K-Ram im 

IBM-look-like Met.-Gehäuse +Profi-Fkt. Tast.+135 W-Netzt. gepr. 999,-—- 
XT-640,w.o.+Contr.+360KBDrive+Color RGB+Vid. Graphic-Karte 1.677,-- 
XT-640, w.o. jedoch statt Color mit Monochrome Karte 1.737,—- 
DET URN T-Tololeish li a N lelsteleslgeluitzmeie:lelsllenuielsiteheist:iateh 1.817,—- 
Aufpreis für XT-640 M-board mit 640 K 

vollbestückt+gepr. 169,— 
20 MB-NEC-Festplatte + DTC-Controller mit Kabel + Man., geprüft 2375,—— 


PC 10-Commodore 512 K+2 Laufwerke + Monitor + dt. Tast. 
PC 10-512 K + 1 Laufwerk + 20 MB-Festplatte 

640 K-Speichererweiterungs-Set für PC 10 279,-- 
PHOENIX GENIE 16 C -PC-compatibel 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 
Motherboard Il 48K leer, durchkont. mit Lötstopplack 
Motherboard II 64 K+Z 80 CPU, leer 

M-board II 48K, gesockelt, vollbest. + gepr. 

Motherboard Il 64K gesockelt, vollbest.+gepr. 

M-board II 64K + Z80 CPU, gesockelt, v. best. + gepr. 
M-board Ile 64K vollbestückt + gepr. 

APOLLO Il Kunststoff-Leergehäuse 

APOLLO II Gehäuse incl. Funkt.-Tast. 

Superstarkes Netzteil — Kurzschlußfest 5A=115,--/7A= 
Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int. V24, 802/24Z-Karte, PAL-Karte je 
Entwicklungslochraster-Leerplatine durchkontaktiert 

LI SSTHEHT IE ETC Kel-jelgilie 

APPLE orig. 16K-Language Karte gepr. 

Z-80 CPU-Karte geprüft 

Controller DOS 3.3-Karte geprüft 

Auto-Controller DOS 3.2/3.3-Karte gepr. 

Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 













Parallel-Drucker-Karte geprüft 

Par.-Drucker-Grappler comp. Leerplatine 

Par.-Drucker Karte-Grappler comp. geprüft (Extra Kabel=45,--) 
ET EN TE ET Ketjeiatleictefeiigetsluen) 
Seriell-Interface-Karte V24 geprüft 

Super-Seriell Leerkarte 

Super-Seriell-Interface Karte gepr. 
80-Zeichen/24-Zeilen-Karte geprüft 

802/24Z-Karte + Softswitch-Schalter Leerplatine 
802/242-Karte + Softswitch-Schalter, gest. Scharf geprüft 
802/24Z-Softwitch Karte gepr. für lle 
802/24Z+64K-Ram+Softsw. Leerkarte f. Ile 

802/242 +64K-Ram+Softsw.-Karte best.+gepr. f. Ile 
IEEE-488 Int. Karte gepr. (Extra Kabel=45,--) 

NE LET NETL Zt leiste TeccHetzTejgilie 

RGB-Color Karte gepr. 

128K-Speicher-Leerkarte 

128K-Speicher-Leerkarte + Software + Manual 
128K-Speicher-Karte + Software geprüft+Manual 
LEITETE RESTE NNTET GE) 

EPROM-Burner (2716/32/64) geprüft 
CEIFANWETCHet-[olgilie 

Clock Karte geprüft 

SITES LE lscHetzjojgiiie 

Wild Karte geprüft 

AD/DA-8Bit Karte gepr. 

UHF/TV-Modulator universell 

Lüfter anclipsbar (220 V) 

Dataphon s21d Akustikkoppler-FTZ mit RS 232/V24 Anschl. 


APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. 
APOLLO//(48K) + Disk II F + Contr. + 12”-Monitor 
APOLLO//A (48K) + Gr/Kl + 15er-Tastatur vollbest. + gepr. 677,-- 
APOLLO//A (48K) + Disk II F + Contr. + 12”-Mon. 

APOLLO// ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/Kl + 
15er-Block mit Funkt.-Tasten im „IBM-look like” Gehäuse 835,-- 
APOLLO// ASKF (48K) w.o. + Disk II F + Contr. 

Apollo Il ASFK (48K) w.o.+2xDisk II-F+Contr.+12” Mon. 








Aufpreis f.o. Systeme von 48K zu 64K 55,-- 
Aufpreis von 48K zu 64K+Z80 CPU 89,-- 
Apollo Ile (64K) vollbest. und geprüft 725,-- 
Apollo Ile (128K) +802/24Z-Karte geprüft 815,-- 


Applle Ile (64K) +15er-Tastatur vollbestückt 
Apollo Ile ASKF (64 K) vollbestückt und geprüft 
Apollo Ile (64K) +Disk II F+12” Monitor 


APPLE Ile 128K+802/24Z Karte-+Softw. 

Disk-Drives voll APPLE Il, 100%ig compatibel + R/W geprüft 
Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. r 
Disk//(Siemens) im Geh. + Kabel 

Disk//F (1/2 Höhe) im Gehäuse -+Contr.+Kabel 

Disk//F (1/2 Höhe) im Gehäuse 

Disk//F-HS (High Speed 1/2 Höhe) im Gehäuse-+Contr.+Kabel 
Disk//F-HS (High Speed 1/2 Höhe) im Geh.+Kabel (Track Ac.<2mS) 
Disk//F-HS-80 Track im Gehäuse + Kabel f. orig. Contr. geeignet 
Disk//F-HS-80 w.o. + Contr. + DOS 3.3 + CP/M Patch-Softw. 
Erphi DuoDisk 1,2 MByte im Gehäuse + Erphi-AFDC 3-Contr. 


APPLESOFT + Turorial + Reference Manual engl. 















APPLE-DOS 3.3 Manual engl. 25,-- 
APPLE-DOS 3.3 Hb. dt. 45,-- 
APPLE-Pascal Reference + Operating Manual engl. 48,-- 
APPLE-Pascal Reference Hb. dt. 49,-- 
APPLE-Pascal Language Hb. dt. 39,-- 
APPLEII-Pascal Hb. dt. (te-wi) 59,-- 
APPLE-Fortran Manual engl. 69,-- 






CP/M-Softcard Vol. | + Il, Manual engl. 

APPLE Il+Ile-Anwenderhandbuch deutsch (te-wi) 
Z80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb. 
WVEISTICELUN TEE RZ FELGE EP S 


Epson LX 80, 8 Bit/par. (Extra Traktor = 69,--) 767,-- 
EPSON FX 85F/T+, 8bit/parallel 160 Z/S. NLQ + IBM Komp. 
EPSON FX 105+, 8bit/parallel 15” sonst w.o. 

EPSON Traktoraufsatz für FX 80 + FX 85 
APPLE/EPSON-Drucker Graphic-Interface + Kabel 

MX 80/82, FX/RX 80 Spezialfarbband-Kassette 


BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Mod. 


Wir führen verschiedene Monitore von Zenith, Phillips und Sanyo mit Video - 
TTL (IBM Komp.) oder Coloreingang. — Bitte Preisliste anfordern! — 
Disketten in Box + Aufkleber I. Wahl, 10er Pack/100er Pack./ Stückpreis: 

514"Verstärkt BASF 3 FUJI DATA NEUTRAL 





















M 
SCOTCH MAGNE- 
als) 
LESE) 
1D, SS/DD 
71 M2E7/0)b) 


3,49/ 3,29 

3,69/ 3,49 3,38/ 2,98 4,27/ 3,97 2,56/2,46 2,25/2,15 
4,89/ 4,59 4,58/ 3,98 5,87/ 5,47 3,26/3,06 2,75/2,55 
1D/96TPi 4,59 4,39 4,88/ 4,68 

2D/96TPi 9,3% 5,09 5,48/ 5,18 7,87/ 7,67 

2HD/1.2MB 12,49/11,59 8,98/ 8,18 12,87/12,57 

1X, Hard 4,29/ 4,19 

gr 
LEERE) 
1D, SS/DD 


4,49/ 4,39 6,68/ 6,48 6,97/ 6,67 BEI 
4,79/ 4,59 8,58/ 8,28 . 
2D,DS/DD 7,09/ 6,89 9,88/ 9,58 10,17/ 9,77 sind 

1X, Hard 4,49/ 4,39 6,68/ 6,48 z } 
K Preise! 
Einseitig 7,29/ 6,89, 6,78/ 6,08 7,67/ 7,17 

Zweiseitig 11,59/11,19 9,28/ 8,48 11,17/ 9,97 








3M-Scotch 5'/” Flüssig-Reinigungsset (2 Disk.) zweiseitig 48,95 
5'/4" Disketten-Archivbox für 10 Disks (1 St./10 St.) 4,75/43,50 
51/4” Disk-Karteikasten Kunststoff (ca. 80 Disk) 26,50 
5/4" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 39,95 
5/4” Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 47,50 






2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf. 

4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x:12” perf. Trägerp.) 

4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 
OSZILLOSCOPE HAMEG ab Lager 

Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 

men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-- Preise incl. MwSt. 

Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Miu. Sav.10-14h, laSav. 10-18 h. 

Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Öffnungszeiten. 

EAU TEST SENTCHINTPNEICHERTETSTEHTLER EREIEHKEIE TER 

unsere eigene Service-Werkstatt. 

REPARATUREN an Apple + Compatible Geräte + Zubehör führt unser 

Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 

Sprechen sie mit uns. Kostenvorschlag auf Wunsch! 


& \-Yeigejalle a 


45,-- 
66,50 
65,-- 

















Telex: 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel (0761) 276864 
Bauelemente - Bausatze - „P's 
Meßgerate - Zubehor - Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 














_ 
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m 


1DC7: 
1DC8: 
1DC9: 
IDCB: 
1DCD: 
1DGF: 


1DDB: 
1DD2: 
1DD4: 
1DD6: 


1DD8: 
1DDA: 
1DDE: 


I1DDE: 
lDDF': 


1DEß: 
IDER: 
1DE4: 
1DES: 
1DE?: 
1DE9: 
1DEB: 


1DEC: 
1DEF: 
1m: 
lDFR: 
1DPF4: 
1DF5: 
IDET: 
1DF8: 
1DFA: 
1DFC: 
IDFD: 
lDFF: 
1Eß1l: 
1Eß3: 


1E84: 
1E06: 
1E98: 


1E89: 
3EßB: 
1EBC: 
lEBE: 
lEll: 
1E13: 


1E15: 
1E16: 
1E18: 
1ElA: 
1EIC: 
JEIE: 
lEIF: 
1E21: 
1E23: 
1E25: 
1ERT: 
1E29: 


1820: 
lE2B: 
lE2P: 


c8 


Bl 
D1 
Fß 
69 


ch 
DB 
c6 
c6 


Ad 


BO 


38 
6 


Ad 
AD 
A6 
18 
69 
99 
E8 


20 
A6 
18 
Bl 
DA 
sı 
c8 
D® 
E6 
E8 
Do 
E6 
DÖ 
6% 


26 
Bd 
6 


A5 
48 
Ad 
2C 
70 
3ß 


DD 
B4 
a1 


d9 
F4 
Öl 
B5 


Bl 
20 
EA 


2p 
#6 
87 


öl 
el 


2r 
AB 


111) 
BB 


92 
#1 


F3 
Al 
EF 


FE 
dl 


FE 
8 
d8 
29 


B2 
09 
8 
B0 
d8 
1C 


d8 
FE 


1C 


83 


lE 


418 
all 
412 
413 
414 
415 
416 
417 
418 
419 
ard 
421 
422 
423 
424 
425 
426 
427 
428 
429 
439 
431 
432 
433 
434 
435 
436 
437 
438 
439 
AAß 
441 
442 
443 
444 
445 
446 
447 
448 
449 
459 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
47B 
471 
472 
473 
474 
475 
476 
477 
478 
479 
488 
481 
482 
483 
484 


485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
50® 
501 


INY 
VERGL DEY 
LDA 
CMP 
BEQ 
RTS 
«GC = 1: abzi 
*C=$: nich 
NXTVGL EQU 
* Unentschied 
* Vergleiche 
x Bytes 
CPY 
BNE 
DEC 
DEC 


x Durch? 
LDA 
CMP 
BCS 
Durch! 


%* 


also 
SEC 
RTS 
* 
ASLZ EQU 
* Schiebt Z 1 
EBr 
LDA 
LDX 
tLC 
ADC 
BCE 
INX 
* Länge des N 
JSR 
LDX 
CLC 
LDA 
ROL 
STA 
INY 
BNE 
INC 
INX 
BNE 
ING 
BNE 
RTS 


ASLZ1 


* 


* 
TRAGEIN EQU 


(PIR1l),Y 
(PTR2),Y 
NXTVGL 


ehbar 
t abziehbar 
# 
en 
die nächst niederen 


#509 
VERGI1 
PTRIHI 
PTR2HI 


PTRIHI 
#>4 
VERGL :nein 


abziehbar 


* 

Bit nach links 
+>Z 

LENNLO 

LENNHI 


#581 
*t3 


enners plus eins 
PARMl 

ZAEHL]1 

{PTRL),Y 
ePIRINGX 


x*+4 
PTRIHI 


ASLZ1 


ZAEHLZ 
ASLZ1 


* 


* Trägt die anfallenden Ergebnis- 


Bits des Divisionsprogranmms 

der Reihe nach ein. 
Berücksichtigt dabei, ob das 
Ergebnis einfach gespeichert, 
addiert oder subtrahiert werden 
muß. 

Das Ergebnis wächst nach unten! 
Ist die festgelegte Stellenzahl 
erreicht, ist das Carry gesetzt, 


BE Ze ur Zr Ze SE Ze Zu Ze > 


ROL SAMSBIT 
BCS #13 
RIS 
SAMSBIT sammelt immer 8 Bits 


* 


LDA PTREHI 

PHA ;HIBYTE 
LDY +$99 
BIT WZT 
BVS STORE 
BMI SUBTR 

+ Addieren 
BIEC 
LDA SAMSBIT 
ADC (PTRE),Y 
STA (PTRE),Y 

WHILEC1I BCC ADDENDE 
INY 
BNE #+4 
ING PTREHI 
LDA {PTRE),Y 
ADC #509 
STA (PTRE),Y 
JMP WHILEC1 


‚was tun? 


SUBTR SEC 
LDA (PTRE),Y 
SBC SAMSBIT 


1E31: 
1193: 
1E35: 
1E38: 
1538: 
1E3A: 
IESG: 
lE3E: 
1E49: 
1E43: 
1E45: 


1E47: 
lE48: 
1B49: 
1EAB: 
1E4D: 
1E4E: 
LEAF: 
1E5S1:; 


1E53: 
1E56: 
1858: 
1ESB: 
lESD: 
iEn5E: 
1EOF: 


1E6ß: 
1E62: 
1B64: 


1E65: 
1667: 
1E6A: 
1E6B: 
1E6ED: 
1E6E: 
Irre 
1E74: 
1E76: 
1E77: 
1E79: 
IE7A: 
1E76: 
1E7E: 
1ETF: 
1E81: 
1E83: 
1885: 


1E86: 
1888: 
1E89: 
1E8B: 
1E8E: 
1691: 
1E93: 
1E95: 
1E98: 


1E9B: 


lESE: 
1EAß: 
lEA3: 
1EAG: 
1EA8: 
I1EAB: 


l1EAE: 


91 
Bd 
c8 
D® 
E6 
Bl 
E9 
91 
ac 
A5 
91 


cc 
Dp 
EC 
Dp 
38 
69 
18 


a9 


6ß 


49 
38 
85 
ED 
8D 
9 
85 
ED 
8D 


28 


A9 
8D 
8D 
Ad 
SD 


85 


#8 
12 


02 


d8 
DB 
d8 
33 
FE 


ö8 


d8 
e1 


#8 
89 


16 
07 
17 
d2 


Bl 
FE 


20 
17 


20 


16 
2F 
AB 


DB 


B2 
81 


F6 
Al 
FZ 


BB 


d8 
d8 
16 


95 


Bl 
17 


65 


Bl 
DW 
0 


FD 
FE 


B2 


lE 


D3 
93 


d3 


B3 
1C 


03 
83 


B3 
83 


1E 


29 
58 


B2 
B2 


502 
503 
594 
505 
586 
507 
598 
509 
519 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
548 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
56% 
561 
562 
563 
564 
565 
566 
567 
568 
569 
576 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
59H 
591 
592 
593 





STA (PTRE),Y 


WHILECO BCS SUBENDE 
INY 

BNE #+4 

INC PTREHI 
LDA (PTRE),Y 
SBC #$09 

STA (PTRE),Y 
JMP WHILECO 
LDA SAM8BIT 


STA (PTRE),Y 
SUBENDE EQU + 
ADDENDE EQU x 
PLA 
TAX 
LDY PTRELO 
EBENE #+3 
DEX 
DEY 
STY PTRELO 
STX PTREHI 
* Ausreichende Stellenzahl? 
* Wenn ja, Carry setzen! 
CPY PIANFLO 
BNE CLEARC 
CGPX PIANFHI 
BNE CLEARC 
SEC 
RTS 
CLEARC GLC 
* Nicht fertig 
LDA #%81 
STA SAMSBIT 
RTS 


STORE 


* 

LOESCHE EQU x* 

* Den Speicherbereich 

* Z bis Pi-AÄnfang 

* ZLO, HI...PIANFLO, HI 
* 


LDY #>Z 

LDA PIANFHI 

SEC 

SBC #>2 

TAX 

LDA PIANFLO 

JSR PARMI 

LDX ZAEHLI 

TYA :$0B 
LOEL STA (PTRI),Y 

INY 

BNE x*+4 

INC PTRIHI 

INX 


BNE 
INC 
BNE 
RTS 
* 
ARCTAN EQU 


LOE1 
ZAEHL2 
LOELl 


* 


* Berechnet A * Arctan (1/Q) 


* 


%* Zunächst wird POINTER auf das 
* Ergebnis (Pi) gesetzt 


LDA 
SEG 
STA 
SBC 
STA 
LDA 
STA 
SBC 
STA 
.„.„.und die 


E EZ Ze Ze Ze; 


gelöscht 
JSR 


Z:= 1: N 
Bolt 


E Zu EZ > 


LDA 
STA 
STA 
LDY 
STA 
STY 


STA 


VORZ 


#509 ; LOW 
PTRELO 

BINSTLO 

PIANFLO 

#>ERG 

PTREHI 

BINSTHI 

PIANFHI 

Adresse des 


niederstwertigen Bytes bestimmt 
(PIANFLO, HI) 

Als nächstes wird der gesamte 
Bereich von Z bis PIANF 


LOESCHE 


Initialisieren einiger Speicher 
=]; 


= -|l 
#501 
Z 
N 
#500 
FLO 
FHI 


LENZLO 


Peeker 5/86 








F. u ; |  & 
I — a, "a [d aM | 8 | 1 ‚de 2 SE — Y 
1EBB: 84 93 594 STY LENZHI JSR ZMALF 
1EB2: 85 96 595 STA LENNLO 
lEB4: 84 97 596 STY LENNHI Zähler und Nenner sind fertig 
997 % berechnet. 
1EB6: 88 598 DEY ;$FF Was fehlt ist nur noch Z/N 
1EB7: 8C FF d2 599 STY VORZ 
SO * Rechne zunächst Z :=Z -N 
681 * Multiplikationstabelle für bis Z<=N 
662 = Qt 2 erstellen 1F49: LDA #S$FF 
lEBA: AD B4 03 603 LDA 02L0 1P42: STA VORZ ‚abziehen 
lEBD: Ac 95 93 694 LDY Q2HI 1F45: CLC 
1ECd: 28 CE IC 685 JSR QUADTAB 1F46: ADC #801 
BE * 1F48: PHA 
1EC3: AD $2 B3 667 LDA ANZLLO 1F49: JSR VERGLZN 
lEC6: 49 FF 6H8 EOR +#$FF LFAC: BCC D2 
1EC8: AA 699 TAX LFAE: JSR ZPLMINN 
1EC9: AD 63 03 619 LDA ANZLHI IF51: PLA 
1ECC: 49 FF Bll EOR +#$FF ı1F52: CLC 
E12 * 1F53: 
1ECE: 48 613 ATl PHA 1F55: 
lECF: 8A 614 AT2 TXA 1F56: 
1EDß: 48 615 PHA 1F57: ROR 
616 «Fi:=F+2 1F58: STA SAM8BIT 
lEDL: AD FD 62 617 LDA FLO 1FSA: JSR TRAGEIN 
1EDA: AC FE 02 618 LDY FHI * 
1ED7: 18 619 CLC LFED: JSR ASLZ 
1EDB: 69 B2 828 ADC #602 * 
1EDA: 98 Bl 621 BCC +3 DIVID2 EQU * 
| 1EDC: C8 622 INY 1F6B: 20 JSR VERGLZN 
| 1EDD: 8D FD d2 623 STA FLO 1F63: 98 PHP 
| 1EEß: 8C FE B2 624 STYy FHI 1F64: 29 JSR TRAGEIN 
| 1EES: 28 F9 1C 625 JSR FAKTTAB 1F67: BB BCS DIVDURCH 
626 %* Multipiikationstabelle für F 1F69: 28 PILR 
627 * 1F6A: 99 BCC NURASL 
628 =» Zi 2s0, 2.228012 1F6C: 29 JSR ZPLMINN 
629 x Z:= Z+t/-N 1F6F: 29 NURASL JSR ASLZ 
68 «N :=N«F 1F72: AC JMP DIVID2 
1EEG: 28 SE IC 631 JSR ZMALF 1F75: 28 DIVDURCH PLP 
1EE9: 28 8D IC 632 JSR ZMALQ2 1F76: 60 RTS 
lEEC: 28 24 1D 633 JSR ZPLMINN 
lEEF: 28 BS 1C 634 JSR NMALF 887 Bytes 
635 %* 
636 x* VORZ := -VORZ 
lEF2: AD FF 92 637 LDA VORZ — 
LEFT: &D FF 02 600 STA VORZ TurtleGraphics-Library-Paket 
* = 1 
641 x* Durch? von Dieter Geiß 
1EFA: 68 642 PLA 
ae AA 643 TAX Turtle-Utilities für Fenstertechnik und Apple-Maus in einfa- 
ei Sn DB ee ne Ayo ee cher und doppelter Hires-Grafik für Pascal 1.2 auf Apple 
lEFF: 68 646 PLA Ile/c mit Maus oder Joystick. 2 Disketten mit umfangrei- 
ıFßB: 18 647 CLC H 
IFd1: 89 gi ee. tn chem Manual, DM 98,-. Unter Pascal 1.1 mit 64K nur ein- 
1Fd3: DO C9 649 BNE ATI ;nein geschränkt lauffähig 
E50 & Durch! REN i 
651 %* Nenner muß noch einige Male Im einzelnen bietet das Paket folgende Möglichkeiten: 
ans E Bann er nn volle Kompatibilität mit der alten „TurtleGraphics“ 
IFß8: AC 05 B3 654 LDY Q2HI alle zeitkritischen Funktionen in reinem Assembler programmiert 
IFOB: 28 F9 IC 655 JSR FAKTTAB Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 
1FBE: AD B2 03 656 LDA ANZLLO . 
1Fll: 49 FF 657 EOR #$FF für Apple Ilc und Apple Ile mit erweiterter 80-Zeichen-Karte Be- 
1F13: AA 658 TAX nutzung der doppelten Hires-Grafik mit 560 x 192 Punkten 
a ae bzw. 16 neuen Farben möglich 
1F17: 49 FF 660 EOR #$FF = 
El * schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 
1F19: 48 662 ATS PHA Benutzung mehrerer Zeichensätze gleichzeitig 
1FlA: 84 663 ATA TXA Sn 5 
1IFIB: 48 564 HA Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 
IFIC: 28 B6 IC 665 JSR NMALF drei verschiedene Schriftarten: Fett-, Breit- und Proportional- 
IFIF: 68 666 PLA schrift, beliebig mischbar (acht Möglichkeiten) 
1F29: AA 667 TAX 
1F21: EB 668 INX spezielle schnelle Ausgabe von Text 
IF22: DB F6 669 BNE AT4 Cursor bei Eingabe frei programmierbar 
a er Ks Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL- 
1F26: 69 Bl 672 ADC #$Q1 Werten im Grafikmodus 
IF28: DO EF 675 BNE ATS Menüzeile wie beim Macintosh 
674 %* i 
675 %* Und noch einmal nit Q Pull-down-Menüs 
Er je 5 03 676 LDA in Laden und Speichern von Fenstern (Windows) 
F2D: A 677 LDY # u 
IF2F: 28 F9 IC 678 JSR FAKTTAB Offnen von Fenstern 
IF32: 28 B6 1C 679 JSR NMALF Aktivieren und Deaktivieren von Fenstern 
el Verschieben und Vergrößern/Verkleinern von Fenstern 
68l * Z:=A x Z;, wegen: : 2 : e Ä 
682 » 48 * ARCTAN. .., 32 * ARCTAN.. Scrolling von Fensterinhalten in allen vier Richtungen 
1F35: AD 97 03 683 LDA VORFKTOR Umfangreiche Demos als Quelltexte. 
1F38: A 684 LDY #$ . s 
IFA: 3 a2 Ic 685 JSR u Hüthig Software Service : Postfach 102869 - 6900 Heidelberg 
Peeker 5/86 Si 





Gemeinsame F8-Monitor-Routinen 


Apple Il+/e/c/enhanced 
zusammengestellt von Ulrich Stiehl 


In Ergänzung zu unserem Beitrag „Die 
neuen ROMs“ in Peeker, 10/85, S. 22ff., 
bringen wir nachfolgend eine Kurzaufstel- 
lung der bei allen Apple-Il-Typen gemein- 
sam verwendbaren F8-Monitor-Routinen 
(F8 bedeutet $F800-$FFFF). 

l: Die mit „|“ für legal markierten Routinen 
wurden von der Firma Apple dokumentiert. 
Allerdings findet man in den verschiede- 
nen Handbüchern zum Il+, Ile usw. unter- 
schiedliche Listen. Als legal gelten daher 
alle irgendwo von Apple aufgeführten 
Routinen. Diese dürften auch noch bei 
zukünftigen ROMs benutzbar sein. 

s: Die mit „s“ für speziell gekennzeichne- 
ten Routinen sollten möglichst vermieden 
werden, auch wenn sie z.Zt. auf allen Ap- 
ple-Il-Typen aufgerufen werden können. 
w: Die mit „w“ für wissenswert markierten 
Tabellen und Vektoren sind keine aufruf- 
baren Routinen. Das gleiche gilt für die zu- 
sätzlich gelisteten Zero-Page-Adressen. 


Routinen und Zero-Page-Adressen, die 
nicht markiert sind, können trotzdem z.Zt. 
auf allen Apple-Il-Typen verwendet wer- 
den, auch wenn sie nicht seitens der Firma 
Apple dokumentiert worden sind. 

Es gibt darüber hinaus noch zahlreiche 
andere Routinen, die jedoch nicht auf allen 
vier Apple-Il-Typen gleichermaßen be- 
nutzt werden können und deshalb vermie- 
den werden sollen. 

Hinweis: Für Anfänger bringen wir zu ei- 
nem späteren Zeitpunkt Übungsbeispiele 
zu ausgewählten Monitor-Routinen. 


Gemeinsame Monitor-Routinen II+/e/n/o 


EEE —— zn 


(1)egal und von Apple dokumentiert 
(s)peziell und nur für Eingeweihte 
(w)issenswert, aber nicht aufrufen 
Apple IIr 

Apple Ile 

Apple IIe mit neuen ROMs 

Apple IIc 

A-Register, Akkumulator 

X-Register 

Y-Register 


Ba a | Ba | a 1 Be EB | | Eu | 


1 
S 
W 
+ 
e 
n 
G 
A 
X 
Y 


Zero-Page-Adressen 


Bootslot 


LOCO 
LOC1 


:Boot-Vektor 


Lores 
GBASL ‚Basis-Adresse 
GBASH 

H2 ‚Temp HLINE 

v2 ;Temp VLINE 
MASK ;Farbmaske 
COLOR :Loresfarbe 


Text 


WNDLFT 
WNDWDTH 
WNDTOP 
WNDBTM 


:linker Rand 
‚Fensterbreite 
‚oberer Rand 
‚unterer Rand 
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Bildschirmsteuerung 


En 


50024 


CH EQU ‚horiz.Cursor 
CV EQU 0025 ;vertik.Cursor 
BASL EQU $0028 ;Basis-Adresse 
BASH EQU $0029 

BASZL EQU $O00RA ;Scroll-Basis-A. 
BAS2H EQU $002B 

INVFLG EQU 80032 ;Inverseflag 





Eingabe 












PROMPT EQU $0033 ; "Prompt" 

KSWL EQU $0038 ;Eingabe-Vektor 
KSWH EQU $0039 

RNDL EQU $004E ;Random-Wait 


RNDH 


Ausgabe 

























CSWL 
CSWH 


EQU 
EQU 


$0036 
$0037 


;‚Ausgabe-Vektor 





Monitorbefehle 











LMNEM EQU $002C ;1.Mmemonic 
RMNEM EQU $002D ;r.Mnemonic 
FORMAT EQU $002E ;Opcode-Format 
LENGTH EQU $002F ;Befehlslänge 
MODE EQU $0031 ;Befehlsmodus 
YSAV EQU %$0054 ;Inputposition 
YSAVl EQU $0035 ;Y-Register 
POL EQU $003A ;Programmzähler 
PCH EQU $003B 

AlL EQU $003C ;Hilfsregister 
AIH EQU $003D 

A2L EQU $003E ;Hilfsregister 
ARH EQU $003F 

AL EQU $0040 ;Hilfsregister 
ASH EQU $0041 

AAL EQU $0042 ;Hilfsregister 
A4H EQU $0043 

ASL EQU $0044 ;Hilfsregister 
ASH EQU 0045 





Interrupt, Break 
































MACSTAT EQU 0044 ;Maschinestatus 
ACC EQU $0045 ;A-Register 
XREG EQU $0046 ;X-Register 
YREG EQU $0047 ;Y-Register 
STATUS EQU $0048 ;Status-Reg. 
SPNT EQU 0049 ;Stack-Pointer 





F8-Routinen 


U 


Lores 


SETGR EQU $FBAO 

CLRSCR EQU $F832 ;1 
CLRTOP  EQU $F836 ;1 
PLOT EQU $F800 ;1 
HLINE EQU $F819 ;1 
VLINE EQU $F828 ;1 
SETCOL EQU $F864 ;1 
NXTCOL EQU $FS5F ;1 
GBASCALC EQU $F847 

SCRN EQU $F871 ;1 






















Text 


INIT 


EQU $FB2F 
SETTXT EQU $FB39 
SETWND EQU $FBAB 





Monitorbefehle 


INSTDSP EQU S$F8DO 
INSDS2 EQU S$F8BSC ;s 
PCADJ EQU $F953 ;s 
XAM EQU $FDB3 
MOVE EQU $FE2C ;1 
VERIFY EQU $FESS :1 
EIST EQU $FESE 
REGDSP EQU $FAD7 
RGDSP1  EQU $FADA 
RESTORE EQU $FF3F ;1; IOREST 
SAVE EQU $FF4AA ;1; IOSAVE 
NXTA4A EQU $FCBA ;s 
NXTAI EQU $FCBA ;s 
ER EQU $FE2O ;s 
PRAL EQU $FD92 ;s 
EQU S$FFC7 ;s 





Daten, 


PMT1l 
TITLEALT 
TITLENEU 
VERSION 
ZIDBYTE 
CHRTBL 
NMIVEGCT 
RESETVEC 
IRQVECT 


Tabellen, 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$F962 ; 


$FBO9 
$FFOA 
$FBB3 
$FBCO 
SFFCC 
$FFFA 
$FFFC 


$FFFE ; 


Vektoren 


ZZ Er rP2 5355 


Interrupt, Break, Reset 


OLDBRK 
RESET 
NEWMON 
PWRUP 
SETPWRC 
OLDRST 
MON 
MONZ 
XBASIC 
BASCONT 


EQU 


EQU 
EQU 
EQU 
EQU 


$FEB3 


Bildschirmsteuerung 


TABV 
VTAB 
VTABZ 
VTAB23 
HOME 
CLREOP 
CLREOL 
CLEOLZ 
SCROLL 
BASCALC 
SETINV 
SETNORM 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$FB5B 
$FCc22 


;$EO00 
:$E003 
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En um. 


$FORA ; 


$FB59 


$FC058 ; 
$FCA2 ; 
$FCSC ; 
$FCYE ; 


$FC70 
$FBC1 


$FESO ; 
$FES4 ; 


Bildschirmsteuerung 


ADVANCE 
B3 
UP 
LF 
ER 
STORADV 
VIDWAIT 


Eingabe 


SETKBD 
INPORT 
RDKEY 
KEYINO 
KEYIN 
RDCHAR 
GETLN 
GETLNZ 
GETLNI 
GETNUM 
PREAD 
READ 


Ausgabe 


SETVID 
BUTPORT 
COUT 
COUT1 
COUTZ 
CROUT 
CROUTL 
PRBYTE 
PRHEX 
PRNTYX 
PRNTAX 
PRBLNK 
PRBL2 
APPLEII 
PRERR 
BELL 
BELL1 
BELLI1A 
WAIT 
WRITE 


Slot-Routinen 


C5ENTRY 
MOVEAUX 
ÄFER 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 


$FBFA 
$FC10 
$FC1A 
$FC6E 
$FC62 
$FBFO 
$FB78 


$FE9S 
$FE95 


$FDED ; 
$FDFO ; 


$FDF6 


nur 40 2/2 


-. 
m 


HFrRütrbrrreHe 


nicht 6 


$FDBE ; 
$FDEB ; 
$FDDA ; 
$FDEZ ; 


$F940 


$F9Al ;1 
$F948 ; 
SFYAA ; 


$FBEO 


SFFRZD ; 
SFF3A ; 
SFBDS ; 


$FBDD 


SFCAB ; 
$FECD ; 


1 

1: 

c: CHKBELL 
;l; c:BELLI 
1 
1 


‚ nicht c 


{nicht II+) 


5C300 
$c31ll 
60314 


;l, 8/n/% 
1; e/n/c 
;1; e/n/c 





c:$FFCD! 
‚nicht c! 


‚ auch DOS 


: auch DOS 
; n/c auch 802/Z 
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99999 399999 PECKER 94 
DEEKER AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 
Börse 


L] suche Hardware [)J suche Software U] Verschiedenes 
I] biete Hardware I] biete Software [1 Chiffre 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. Mindestens 2 Zeilen. 
Chiffregebühr DM 6,- zuzügl. MwSt. 


perkeng 4 


‚seite ____———_—___ erschienenen 


Gelegenheitsanzeigen 





Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 


@ Ihre Hardware und 
Software verkaufen 


@ Ihre Hard- und Software 
suchen IS DUT 
® Kontakte knüpfen und 


vieles mehr 


be Peeker- Börse 








Zu der im Peeker, Heft 


Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,50 
zuzügl. ges. MwSt. 
Mindestens 2 Druckzeilen 


Beispiel: 


Anzeige über 


bitte ich um detaillierte Information. 
Ich wünsche [U] Prospekt, Datenblatt L] Preisliste [| schriftliches Angebot U] tel. Rückruf 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 


Verkaufe neuwertigen Typenrad- 


| drucker mit Apple-Interface. 
Preis auf Anfrage. Tel. 007 


nur DM 18,81 inkl. MwSt. 





Er Produkt-Karte 


Unterschrift {für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


Musteranzeige gewerblich 

1 Druckzeile a 32 Buch- FPAFEADT DEE (ER Ay 
staben nur DM 11,— zuzügl. 

ges. MwSt. Mindestens 
2 Druckzeilen 


Beispiel: 


Schreiben Sie uns, wenn Sie technische Fragen zu Aufsätzen im Peeker 
haben. Beachten Sie jedoch, daß die Redaktion keine Auskünfte über Be- 
zugsquellen erteilt: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il plus | 


16 Funktionstasten und separatem | 
Ziffernblock. | 
| Fa. Keyboard & Co. 





nur DM 62,70 inkl. MwSt. 


nen Info -Karte 








Vorname, Name 


POSTKARTE 


Peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


PLZ/Ort 
Bitte veröffentlichen Sie den um- 

stehenden Text von Zeilen 
a DM in der nächsterreich- 
baren Ausgabe vom Peeker 








N 
u 
ö 
en 
T 
a 
Ö 
D 


Datum "Unterschrift 





© Karte bitte vollständig ausfüllen 
Eee 
dm Vorname, Name 
orn ‚ 
oO POSTKARTE 
Se Firma zu 
E 
> Insörent 
oO Straße u 
oO PLZ/Ort 
D. Straße 
Telefon mit Vorwahl 
Anschrift der Firma angeben, bei der Sie PLZ/Ort 
bestellen bzw. von der Sie Informationen 
wünschen 
Karte bitte vollständig ausfüllen 
POSTKARTE 
Vorname, Name 
Firma 
_ Peeker 
Redaktion 


Straße 


Dr. Alfred Hüthig Verlag 
Postfach 10 2869 
6900 Heidelberg | 


PLZ/Ort 


Telefon mit Vorwahl 


DD Info-Karte 








Produktf- 
Karte 


Wünschen Sie 
weitere Informatio- 
nen zu einer der im 
Heft erschienenen 
Anzeigen? 


Nichts einfacher als 
das. Produkt-Karte 
ausfüllen, frankieren 
und an den 
Inserenten (nicht an 
die Peeker-Redaktion 
senden. 


Vorher aber nicht 
vergessen: 

Kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrag 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten und Ihren 
Absender ein. 


PEEkER 


Das deutsche Software-Paket 
Handmac von Copy Team Soft- 
ware, Bamberg, wurde speziell für 
den kleinen und mittleren Hand- 
werksbetrieb entwickelt und bietet 
zu einem Preis von DM 2498, - (au- 
Ber Kunden-Stammdaten) fast alle 
Module, die Im handwerklichen 
Bereich benötigt werden. Die 
Handhabung ist wegen der Mac- 
typischen Benutzerführung auch 
für einen Computer-Laien schnell 
erlernbar. 

Die Anwendung läßt sich in fünf 
Bereiche gliedern, die untereinan- 
der Daten austauschen können: 


— Lagerverwaltung 

— Kalkulation 

— Abrechnung 

— Rechnungsstellung 
— Textverarbeitung 


Darüber hinaus gibt es einen wei- 
teren Programmteil, der zur Ablage 
und Organisation (Erstellen von Si- 
cherheitskopien, Auslagern von 
Dateien) dient. 


Lagerverwaltung 


Die Lagerverwaltung kann insge- 
samt 3000 Posten verwalten. Die- 
se einzelnen Artikel werden nicht, 
wie üblich, durch Artikelnummern 
bezeichnet, sondern durch Kate- 
gorie und Kurzbezeichnung be- 
schrieben. Somit erhält die Dach- 
latte, 5 x 7 cm nicht die Artikel- 
nummer 1234567, sondern wird 
z.B. unter der Kategorie „Holz“, 
Kurzbezeichnung „Dachl. 5 x 7" 
wiedergefunden. 

Diese Lagerverwaltung ist in einem 
weiteren Sinn zu sehen, da die 
einzelnen Artikel nicht in jedem 
Fall materielle Güter sein müssen, 
sondern auch Posten wie Maschi- 
nenstunden oder Lohnkosten be- 
zeichnen können (was sich bei der 
Fakturierung als günstig erweist), 
für die jedoch kein Vorrat oder Mi- 
nimum angegeben werden kann. 
Die Stammdaten der einzelnen Ar- 
tikel enthalten neben der ausführli- 
chen Bezeichnung den Ein- und 
Verkaufspreis, den Steuersatz, die 
Einheit (z.B. m, kg) und gof. die 
Bestellnummer. 
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Über die Option Warenein- und 
ausgang wird der Lagerbestand 
neben dem automatischen Ab- 
gleich bei der Abrechnung aktuali- 
siert. Über „Inventur“ kann die La- 
gerbestandsliste in regelmäßigen 
Abständen auf den neusten Stand 
gebracht werden, um u.a. den er- 
fahrungsgemäß auftretenden 
Schwund zu erfassen. 

Wie bei den anderen Punkten ist 
es auch hier möglich, eine Liste 
nach bestimmten Gesichtspunkten 
auszudrucken, um z.B. alle Artikel 
zu erhalten, deren Mindestbestand 
unterschritten ist. 


Kalkulation 


Bei der Kalkulation werden ver- 
schiedene Posten zusammenge- 
tragen, um die voraussichtlichen 





Gesamtkosten eines Auftrags zu 
ermitteln. Dabei erhält jede Kalku- 
lation einen Namen und ggf. eine 
Einheit mit Steuersatz, um sie spä- 
ter wiederum als Posten einer Ge- 
samtkalkulation aufzunehmen. 

Die Berechnung kann sowohl als 
Vollkostenrechnung als auch als 
Deckungsbeitragsrechnung er- 
folgen: 

— Bei der Vollkostenrechnung wer- 
den die absoluten Beträge (also 
z.B. Verkaufspreis der Einzelpo- 
sten) zugrunde gelegt. 

— Bei der Deckungsbeitragsrech- 
nung wird der erwünschte Gewinn 
angegeben (absolut oder prozen- 
tual), und die Berechnung erfolgt 
unter Brücksichtigung von sonsti- 
gen Kosten (die jeweils angege- 
ben werden) nach dieser Vorgabe. 
Neben den Posten, die bereits 
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Ein Macintosh-Paket für den Handwerker 


von Harald Grumser 


durch die Lagerverwaltung be- 
kannt sind oder aus anderen Kal- 
kulationen entnommen werden 
können, werden andere Einzelpo- 
sten (z.B. Artikel, die nicht auf La- 
ger gehalten werden) direkt ange- 
geben, wie auch die Preise der 
Lagerstammdaten, die sich aus- 
nahmsweise geändert haben. 


Abrechnung 


Die Abrechnung kann, falls eine 
Kalkulation erstellt wurde, mit der 
entsprechenden Anpassung an die 
tatsächlich erbrachte Leistung von 
dort abgeleitet oder neu erstellt 
werden. Dabei besteht die Mög- 
lichkeit, die verbrauchten Artikel 
vom Lager abzubuchen, 

Neben diesen Daten müssen hier 
noch die Kundendaten eingege- 
ben werden, was laut Herstelleran- 
gaben später durch ein weiteres 
Kundenstamm-Modul ergänzt wer- 
den soll. 


Rechnungsstellung 


Grundlage der Rechnungsstellung 
ist die Abrechnung. Hier können 
Abrechnungen oder gleiche Po- 
sten (5 m Dachlatten und 7 m 
Dachlatten werden 12 m Dachlat- 
ten) zusammengefaßt werden. Au- 
Berdem bietet sich die Möglichkeit, 
einen Rabatt zu gewähren. 

Beim Bearbeiten der Rechnung 
wird festgelegt, ob diese bereits 
bezahlt wurde. Bei der Ausgabe 
des Rechnungsiournals (Drucker 
oder Bildschirm), das alle Rech- 
nungen in Kurzform auflistet, sieht 
man dann alle offenen Posten. 


Textverarbeitung 


Die Textverarbeitung bietet die 
Möglichkeit, Briefe zu schrieben, 
die Kalkulationen, Abrechnungen 
oder Rechnungen enthalten kön- 
nen. Diese Dokumente lassen sich 
dann entsprechend ändern oder 
einfach nur anders gestalten 
(Schriftgrößen, Unterstreichen, 
Fettdruck). So ist es möglich, aus 
Standart-Modulen Angeboits- 
schreiben, Zwischenabrechnun- 
gen oder Mahnungen zu erstellen. 


ss 


NITNDAUS 

MIT 

Hi3e7:Geie],iz 

10/20 MBytes im Apple® 


ir Apple Il, Ile € 


Zi 2 m Bi 80-Zeichen-Karte 149,- = 
Disk-Interface ‚= mit Softswitch, nur für Il+ kompat. - 
Centronlcs-Intert. m. Kabel | 55,- = =! 
16-K-Ram-Karte CloekKarte OO 123 


Motherboard lie kompat,  458,- 
RS-232-Karte ohne Firmware 


Eprommer (4,8,16K)_  139,- Komp ———— 
Apple 2E kompatible, Rechner 
B4K Im BE-Design, ohne Firmware‘ 


80Z. + 64K-Karte 99,—- 
# Motherboard 48-K 399,- für2E en i 
f #. 6502-48K-Byte ohne Firmware Apple«Info 1, 


Händleranfragen erwünscht! (Porto) 


128-K-RAM-Karte - 
256-KB-RAM-Karte 399,- 


- Klaus orhie | 


Hard-, Software 
Vlertsir. 213 
I) 6233 Kelkheim 
'\ = (06198) 90 69 


Ssasrarr 
PRESSTITTICEH 


aaa electronic gmbh, Freiburg 

Bühler Elektronik, Baden-Baden 
Erphi Electronic, Baldham . 

Frank & Britting GmbH, Forst 
Franzis Verlag, München . 
Ingenieurbüro Fricke, Berlin . 
Interkom electronic, Isernhagen 
Intus, Waldshut-Tiengen 

Jeschke, Kelkheim . . 

Mammut Soft, Dübendorf 

U. Mohwinkel Electronic, Leverkusen 
Nuclear Interface GmbH, Münster 
Pandasoft, Berlin 

Real Soft, Gelsenkirchen . 

M. Semjan Computer Systeme, Frankfurt 
Tewi-Verlag, München _. 

TLK Hard- und Software, Münster 
Ueding electronics, Menden 

Weiss Computer, Wilhelmshaven . 
Peeker-Börse 





Sf "Darauf haben alle.Apple//-Besitzer schon lange gewartet. 
FE. Jetzt bleibt.die Floppykiste zu. 
" Einfach den Rechner einschalten, 
vier Betriebssysteme warten auf Ihr Kommando 
'... iDOS, CP/M, Pascal, ProDOS) 
- Welcher Abe ner kann das schon? 
Fra ar uns. nach Preisen und Bezugsquellen und 
= Sie sich u 5,— DM die Demo-Diskette. 


FRANK & BRITTING 


Elöktrönik Entwicklungs GmbH 

ee Sbangestr. 4, Pontluch 1129, 7329 Forst 
er 7 Tolbton: 07251 /103068- 88, 

“24 -Telon: 7822462 fub d 





" Die Harddiskcontroller-Speziallsten 





APPLE & CP/M-80 & MS-DOS 
SOFTWARE & HARDWARE 


z. B. für APPLE Il und Kompatible 
Wir liefern die RAM-Karte (AE) für den Apple lie mit max. 3 MB 


Erscheinungs- und Anzeigen- 


schlußtermine für Peeker 


Ausgabe Erstver- 
_ kaufstag 


6. 06.86 
23. 06. 86 
21. 07. 86 
= Aue 86 
22. 09. 86 
20.10.86 
ea. 11.86 


Anzeigen- 


schluß 


05.05.86 


02.06.86 
01.07.86 
04.08.86 


01.09.86 


01.10.86 


03.11.86 


(Appleworks mit mehr als 2 MB)! 64-K-Ausf. 


speeDemon 3.56 MHz Goproz. für II+/e (McT) 
UPC-Programmer-GCard 2716-128 komiortabäl .. - . 
72 40 Port Card programmierbar DOS+CP/M „... 


DM 650,- 
DM 980,- 
DM 580,- 
DM 350,- 


AD 16 Ch.12 Bit, schnell! (Applied Eng.) . 

PKASO/U-Printer-Karte (IS) . er 
GP/M-Plus-Gard, 6 MHz, 64 K, CP/M3.0 {AL8) . 

NicePrint-Printer-Karte (Spies kObordehe see een : 
Timemaster IH, O., die Uhrenkarte! er 

Softerm 2 II-+/e/c (Softronics) a 

ELF kompl, Statistik-Software (TWG}. a 
Prime-Plotter-Grafik-Software (Primesoft) . natches 

TTL-IC-Tester inkl, Software... - - na 
Memory-Tester & Eprom- -WEiter/Testetr 2aemasananenen DM 50, 
Z-RAM 512 K für APPLE Ilc (AE) DM 1350,- 
z. B. für IBM und Kompatible 

APPLE Turnover (Vertex) Lesen/Schreiben von a Disks 

im IBM PC & Komp. . = ‚ DM 1200,- 
XEND-COPY plus (Vertex) Lesen/Schreiben div. 

CP/M & MS-DOS Formate im IBM DM 600,- 
ELF PG komp!. Statistik Software (TWG) . aan DM BOO- 
PROM Blaster 28-Pin (Apparatinc.) .---=-==#+=-----» DM 820,- 
z. B. für alle Systeme 

Printerchanger 3 parall. Drucker auf 1 Micro 

inkl. Kabel/Netzteil (Keyzone) . DM 57%,- 
Printersharer 3 Micros auf 1 ae Drucker 

inkl. Kabel/Netzteil (Keyzone) . suwananeunn DM 460,- 
Shufflebuffer 64 K (IS) . en DM 1350,- 
Wir sind Import- Spezialisten und bieten Ihnen eine ne große Auswahl an Software 
und Hardware bedeutender Hersteller aus den USA und England. 
Informationen gegen DM 3.- in Briefmarken. 


WEISS COMPUTER _ bipi.-Psych. Karl-Heinz Weiß 


Am Wiesenhof 17, 2940 Wilheimshaven, Tel. 0 44 21/8 31 79 


IBM fähiges Floppy, US-Qualität vo 
Qune. Modell Track 142. 5 14'’ Double 
'Sided. 48TPI/500 KB. Anschluß an alle 
IBM u. andere PC's. Slim Line als Ein- 
schub in jedes IBM-Gehäuse pas- 
send. Diskettenschonender Daten- 
kopf. Garantie 1/2 Jahr. 

BN 95561 DM 268,— 


BEIILENETLT 
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MS-File, MS-Word und Imagewriter II 


Anspruch und Wirklichkeit im Büroeinsatz 


Da das, was ich im folgenden beschreiben 
will, wahrscheinlich in manchen Ohren 
nicht sehr freundlich klingt, möchte ich 
einigen möglichen Einwänden von vorn- 
herein begegnen. Zunächst: Ich liebe mei- 
nen Macintosh heiß und innig. Ich habe ihn 
heranwachsen sehen, von ursprünglich 
128K auf 512K, und kann es kaum erwar- 
ten, die volle IM-Grenze zu überspringen. 
Er hat mir immer treu gedient und hat mei- 
ne Augen nie zum Tränen gebracht, auch 
wenn ich Stunden vor seinem kleinen Bild- 
schirm gesessen habe. Mit Großrechnern 
und ihren Betriebssystemen habe ich im 
Laufe der Jahre meine Erfahrungen ge- 
sammelt. Ich möchte nicht mehr zurück in 
die schlechte alte Zeit. Aber ich bin auch 
nicht betriebsblind. 


Mein Macintosh war eines der ersten in 
Deutschland verfügbaren Geräte, es war 
Liebe auf den ersten Blick. Seit es ihn hier 
gibt, habe ich mit seiner Hilfe viele, viele 
Seiten Text geschrieben, Zeichnungen er- 
stellt, Statistiken ausgewertet, aber auch 
auf Monster geschossen. Ich habe gern 
Adventure gespielt: Wenn man mit Hilfe 
diverser Editoren neue Eigenarten und 
verborgene Schätze des Betriebssystems 
oder undokumentierter Programme findet, 
ist das schon von eigenem Reiz. Ebenso 
wie die Programmierung des Macintosh 
selbst. Allen Unkenrufen zum Trotz, vor al- 
lem aus dem Hause Apple, wonach man 
ohne die Lisa niemals Programme auf dem 
Macintosh werde entwickeln können — mit 
der Programmierung geht es doch. 


Als mich ein guter Bekannter bat, ihm im 
Geschäft bei der Umstellung der EDV auf 
Mac zu helfen, habe ich sofort zugesagt. 
Damals habe ich noch geglaubt, das sei 
mit meinen Erfahrungen eigentlich im 
Handumdrehen zu erledigen. Im Laufe 
dieses Abenteuers entpuppte sich das 
Problem als ein bösartiger, widerspensti- 
ger Drachen; kaum ist ein Kopf abgeschla- 
gen, wachsen viele neue nach. 


Bisher wurde in dem Geschäft die Adres- 
senliste auf einem CP/M-System und dem 
bewährten, aber betagten Wordstar erle- 
digt. Teilweise werden Etiketten und Pa- 
ketaufkleber auch mit einer Speicher- 
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von Dr. Martin Wolter 


schreibmaschine bedruckt das Überspie- 
len der Adressenliste auf den Macin- 
tosh warf keine Probleme auf. Die über- 
spielten Daten ließen sich anschließend 
sehr übersichtlich in MS-File organisieren. 
MS-File ist eines meiner Lieblingspro- 
gramme auf dem Macintosh, sehr ange- 
nehm (maclike eben) zu bedienen, und 
zudem ist es leistungsfähig. Immer mit der 
Einschränkung, daß es sich um keine voll- 
wertige Datenbank mit allen Schikanen 
handelt. Bis hier eine Sache von wenigen 
Stunden 


Irgendwann muß man die Daten auch ein- 
mal ausdrucken, das ist nun einmal in ei- 
nem Unternehmen so. In einem Ge- 
schäftsbetrieb ist Zeit gleich Geld. Aber 
das Ausdrucken mit einem Macintosh ko- 
stet viel Zeit, sehr viel Zeit. 


Also ganz langsam. Die Adressenliste um- 
faßt mehr als 1000 Einträge, da hört der 
Spaß auf und das Programm muß hart ar- 
beiten. Die Formatmaske in MS-File bietet 
ein klares, sauberes Layout und ist so auf- 
gebaut, daß sechs Kundeneinträge auf ei- 
ne Seite passen. Gedruckt werden soll auf 
dem neuen Imagewriter II. Drucke ich im 
Draft-Modus, geht es zwar zügig voran, 
aber das ganze, feine Layout ist für die 
Katz. Im Standard-Modus bleiben die be- 
grenzenden Linien und fett zu druckenden 
Texte zwar so, wie vorgesehen, nur mit 
dem kleinen Manko, daß für eine Seite ca. 
100 Sekunden benötigt werden. Das be- 
deutet bei 1000 Kunden knapp fünf Stun- 
den Druckzeit. Fünf Stunden, die ein be- 
zahlter Mitarbeiter damit zubringt, darauf 
zu achten, daß sich der Drucker nicht ver- 
heddert. Was er ab und an tut. Wielange 
sich das Drucken ausdehnt, wenn gar im 
Qualitäts-Modus gedruckt würde, habe 
ich erst gar nicht errechnet. 


Ist denn die Druckqualität wenigstens 
„Standard“? Nein, sie ist es nicht. Der 
Imagewriter II druckt bidirektional und ist 
immer noch nicht teuer genug, um gerade 
senkrechte Linien senkrecht bleiben zu 
lassen. Er hat auch sonst mit dem akuraten 
Druck so seine Schwierigkeiten. Der alte 
Imagewriter ist langsamer, billiger und 


druckt besser (nicht gut). Daß es sich nicht 
um ein Gerät aus einer Montagsserie han- 
delt, zeigen Versuche auf zwei weiteren 
Imagewriter-Il-Geräten beim Händler. Üb- 
rigens hat der Händler auch einen Joyce 
von Schneider im Angebot, mit einem Ma- 
trixdrucker vom Feinsten in bezug auf die 
Druckqualität. Nur daß ich dann für den 
Preis eines Imagewriter || einen Drucker 
erhalte, aber mit einem Computer oben- 
drein. 


Was den Mac zu einer so phantastischen 
Maschine macht, daß er nämlich grund- 
sätzlich Grafik druckt (wenn er maclike 
agiert), macht ihn für seriöse Aufgaben fast 
unbrauchbar. Derart lange Druckzeiten 
sind indiskutabel. Die Ausgabe auf einem 
schnellen Typenraddrucker würde die Ar- 
beit erheblich beschleunigen, nur mit dem 
Handikap, daß dies von MS-File aus nicht 
geht und zudem sämtliche Formatierun- 
gen hinfällig wären. 


Im Geschäft sind weiterhin Etiketten, di- 
verse Aufkleber, Post- und Paketkarten 
und Rechnungen zu schreiben. Also wird 
die Kombination MS-File und MS-Word 
bemüht. Ansich ein ideales Paar. Von MS- 
Flle lassen sich die benötigten Records 
bequem und rasch selektieren, im Print- 
Merge-Format übergeben und mit hoher 
Flexibilität in MS-Word weiterbehandelt. 
Bis dahin ließ sich eine wunderschöne Lö- 
sung erstellen, die wohl auf keinem ande- 
ren Rechner so benutzerfreundlich abliefe. 
Wenn nur der leidige Ausdruck nicht wäre! 
Und wieder der Imagerwriter. 


Mit einem Einzelblatteinzug zieht der Ima- 
gewriter Il das erste Blatt grundsätzlich auf 
eine andere Höhe ein als das zweite und 
jedes folgende. Bei ca. 10 verschiedenen 
Formulartypen eine sehr lästige Eigen- 
schaft, die weder in der Werbung noch im 
Handbuch dokumentiert ist. Um auch das 
erste Blatt immer auf der gleichen Höhe zu 
bedrucken, muß das Papier mit viel Gefühl 
eingeführt werden. Nun ja, ein neuer Mit- 
arbeiter wird es im Laufe weniger hundert 
Blätter und Wochen schon lernen. 


Eines der Formulare muß dicht unter dem 
Rand bedruckt werden: Das geht grund- 
sätzlich bei Einzelblatteinzug nicht. Erst ca. 


SR 


2.5 cm unterhalb des Papieranfangs läßt 
sich tatsächlich drucken. Eine „sinnrei- 
che“ Automatik im Imagerwriter II verhin- 
dert, daß man mit einem eigenen Pro- 
gramm das Papier auf die richtige Höhe 
zurückfährt. Darüber hinaus muß für jedes 
Formular eine etwas veränderte Einstel- 
lung gewählt werden. Selbstverständlich 
könnte man auch auf Endlosformulare 
drucken. Volkswirtschaftlich wäre die Inve- 
stition in ein knappes Dutzend Drucker nur 
zu begrüßen. Der Versuch, mehreren vor- 
handenen Druckern verschiedene Aufga- 
ben zuzuweisen und mit dem Microsoft- 
Enhancer umzuschalten, scheiterte bis- 
lang, weil Microsofts sogenannte Hotline 
innerhalb von sechs Wochen auch nicht 
weiterhelfen konnte. Ein neuer Enhancer 
jedenfalls „ist schon unterwegs“. 


Eine weitere Schwierigkeit beim Bedruk- 
ken von Formularen tritt auf: Ich möchte 
gern die entsprechenden Felder millime- 
tergenau bedrucken. Das „Millimeterge- 
nau“ nehme ich, speziell bei Einzelblatt- 
einzug, nicht mehr ganz wörtlich. Lasse 
ich MS-Word mit den vollen Fähigkeiten 
des Macintosh arbeiten, dann kann ich 
verschiedene Schriftarten, unterschiedli- 
che Schriftgrößen und Darstellungen (fett, 
kursiv usw.) drucken. Das geht bei einem 
leeren, weißen Blatt Papier auch gut, da 
mir der Zeilenabstand ziemlich gleichgültig 
ist. Aber die kleinste Veränderung ver- 


Microsoft und 
Microservice 


Normalerweise hätten wir den Beitrag von 
Dr. Wolter an die Firma Microsoft zur Stel- 
lungnahme weiterleiten müssen, aber Mi- 
crosoft schweigt sich nach unseren Erfah- 
rungen bei technischen Anfragen aus. Wir 
haben dies bereits mit der Microsoft-Pre- 
mium-Softcard durchexerziert. Nach un- 
serem Testbericht im Peeker, Heft 11/85 
gingen diverse Leserbriefe ein, insbeson- 
dere wegen der Anpassung der Premium- 
Softcard an 80-Spurlaufwerke und RAM- 
Karten. Für die eingehende Post gilt bei 
Microsoft offenbar das Motto „Die quten 


98 


schiebt alle folgenden Zeilen. Abhilfe: Ein- 
stellen eines festen Zeilenabstands. Jetzt 
kann ich mich darauf verlassen, daß eine 
Änderung in der ersten Zeile nicht die rest- 
lichen Einstellungen und Abstände un- 
brauchbar macht. Ebenso, wie auf einer 
ganz gewöhnlichen Schreibmaschine. 
Aber die ganze Macintosh-Flexibilität ist 
zum Teufel. Sicher könnte man im Laufe 
vieler Stunden auch MS-Word dazu brin- 
gen, „millimetergenau” zu arbeiten und 
ein Formular genau auf der anvisierten Li- 
nie zu bedrucken. Der benötigte Aufwand 
stünde aber kaum noch in einem akzepta- 
blen Verhältnis zum Ergebnis, ganz abge- 
sehen davon, daß mein spezielles Formu- 
lar von nun an heilig wäre, weil mögliche 
Änderungen unabsehbare Folgen nach 
sich ziehen würden. 


Die Verwaltung großer Datenmengen er- 
fordert eine Harddisk. Apples Harddisk 
kommt mit zwei Jahren Verspätung, zeich- 
net sich aber immerhin dadurch aus, lang- 
sam und vergleichsweise teuer zu sein. 
Zum Glück ist im Geschäft eine Hyperadri- 
ve mit 2OM installiert. Dem Gerät können 
akzeptable Antwortzeiten bescheinigt wer- 
den. Mit einer Hyperdrive macht es Spaß, 
auf dem Mac zu arbeiten. 


Großes Finale: Die bisherige Standardlö- 
sung des Etikett- und Formulardrucks mit 
einer Speicherschreibmaschine erfordert 
ca. vier Minuten Aufwand. Die Lösung auf 


ins Töpfchen, die schlechten ins Kröpf- 
chen“: Die „guten“ (= Bestellungen) wer- 
den sofort bearbeitet, die „schlechten“ (= 
Rückfragen) später oder gar nicht. Wir 
mußten deshalb leider den von einem 
Peeker-Leser eingereichten Aufsatz „Insi- 
de Microsoft Premium Softcard“ ablehnen, 
weil dieser Beitrag neue Briefe provoziert 
hätte, die in Aschheim-Dornach wiederum 
ins „Kröpfchen“ gewandert wären. 


Bei der Premium-Softcard kann man viel- 
leicht noch unterstellen, daß diese Karte 
trotz des stolzen Preises nur für Freaks 
konstruiert worden ist. Wie steht es aber 
mit MS-File und MS-Word? Sind auch die- 
se Produkte nur für Programmierer ge- 
dacht, von denen man erwartet, daß sie 
sich ihren eigenen Printer-Driver schrei- 
ben können? Der Bericht von Dr. Wolter 
behandelt eines der typischen „Zwischen- 
den-Stühlen“-Probleme. Der Käufer eines 
Text- oder Dateiprogramms will seine Texte 
oder Daten schließlich irgendwann einmal 


dem Macintosh zeichnet sich dadurch aus, 
vergleichsweise benutzerfreundlich zu 
sein. Was später einmal mit dem Pro- 
gramm „Tempo" geschehen soll, nämlich 
per Tastendruck eine Aufgabe komplett 
abwickeln zu können, muß jetzt noch per 
Hand gemacht werden. Das heißt konkret, 
daB innerhalb einer Aufgabe etwa 20mal 
verschiedene Menüs ausgewählt werden 
müssen, die man sich erst einmal merken 
muß {um gerecht zu sein, es wäre mit CP/M 
und Wordstar um einiges unangenehmen). 
Nun denn, ich bin geübt, habe die abkür- 
zenden Tastaturkommandos parat und las- 
se meine Finger tanzen. Und bin immerhin 
mit sechs Minuten guter Zweiter. Gegen- 
über einer Speicherschreibmaschine 
brauche ich mit dem fortschrittlichen Mac 
nur knapp 50 Prozent länger. 


Eigentlich ist der Macintosh eine tolle Ma- 
schine. Aber wenn er einmal wirklich auf 
größere Probleme losgelassen wird, geht 
Ihm die Puste sehr schnell aus. Eine Kette 
ist nur so stark wie Ihr schwächstes Glied. 
Nach zwei Jahren Einsatz des Macintosh 
im Uni-, Heim- und Hobbybereich mag ich 
meinen Mac immer noch. Aufgrund meiner 
gesammelten Erfahrungen im Bürobereich 
wundere ich mich allerdings darüber, daß 
der Macintosh tatsächlich als Manager- 
computer vermarktet werden soll. Luxus- 
preis = Luxusgerät = Luxuslösung, diese 
Rechnung jedenfalls geht nicht auf. 


ausdrucken, wie umgekehrt der Besitzer 
einer Premium-Softcard auch irgendwann 
einmal seine RAM-Karte einsetzen möch- 
te. Microsoft kann sich natürlich auf den 
Standpunkt stellen, daß Apple gefälligst 
den Imagewriter an MS-Word anzupassen 
habe, während umgekehrt Apple die Mei- 
nung vertreten kann, daß Microsoft bitte 
schön MS-Word an den Imagewriter zu 
adaptieren habe. Bei dieser starren Hal- 
tung — Apple hilft nicht bei Word, Microsoft 
hilft nicht beim Imagewriter — bleibt indes- 
sen der Anwender auf der Strecke. Daß 
man bei MS-File 5 Stunden benötigt, um 
1000 Adressen (also nicht 1000 Briefe 
0.4.) auszudrucken, ist eine Armutszeug- 
nis für eine solch renommierte Firma wie 
Microsoft. Und daß sie ihren Kunden dann 
nicht einmal hilft, ist noch beschämender. 
Die Ware wurde geliefert, die Rechnung 
bezahlt, und das war's! 


Ulrich Stiehl 
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von Dr. Jürgen B. Kehrel 


Das Superquick-Programm von Arne 
Schäpers ist ein sehr schnelles und 
sicheres Kopierprogramm für ganze 
Disketten unter DOS 3.3, ProDOS, Pas- 
cal und CP/M. Für mich hatte es nur 
einen Fehler: Meine 640K-Disketten mit 
160 Tracks am Erphi-Controller ließen 
sich nicht bearbeiten. Ein Patch macht 
auch dies jetzt möglich. 


PRODOS.PATCH.1.1.1 
(Bezieht sich auf Seite 60: „Kyan-Club-Nach- 
richten") 


$0900: A9 01 DO 05 20 B6 09 A9 
$0908: 02 8D F7 09 20 E3 03 84 
$0910: CE 85 CF AO 01 Bt CE 8D 
$0918: EC 098D FA09C8 B1 CE 
$0920: 8D ED 09 8D FB 09 A9 10 
$0928: 85 E3 A9 00 8D EF 09 20 
60930: 62 09 A920 85 E3EE EF 
60938: 09 20 62 09 A9 30 85 E3 
$0940: EE EF 09 20 62 09 A9 40 
60948: 85 E3 EE EF 09 20 62 09 
50950: A9 50 85 E3 EE EF 09 20 
50958: 62 09 AD F7 09 C9 01 FO 
$0960: 30 60 A2 10 86 D7 C6 D7 
$0968: A6 D7 10 01 60 8E FO 09 
$0970: 18 BD DB 09 65 E3 8D FA 
$0978: 09 A9 09 AO EB 20 D9 03 
$0980: A9 00 85 48 90 EO 68 68 
$0988: 20 58 FC AD F8 094C DA 
$0990: FD AO 00 B9 00 20 AA B9 
$0998: 00 1E 99 00 20 8A 99 00 
$09A0: 1E C8 DO EF B9 00 21 AA 
$09A8: B9 00 IF 99 00 21 8A 99 
$09B0: 00 1F C8 DO EF 60 AO 00 
$09B8: B9 00 IE AA B9 00 20 99 
$09C0: 00 1E 8A 99 00 20 C8 DO 
$09C8: EF BI 00 IF AA B9 00 21 
$09D0: 99 00 IF 8A 99 00 21 C8 
$09D8: DO EF 60 00 OE OD 0C OB 
$09E0: 0A 09 08 07 06 05 04 03 
$09E8: 02 01 OF 01 60 01 00 00 
$09F0: 00 FC 09 00 10 00 00 01 
$09F8: 00 00 60 01 00 01 EF DB 
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v UTILITIES #4 
Erphi-Patch für 
Superquick 


Jetzt auch 160 Tracks in Windeseile kopiert 


Gerade für die „großen“ Disketten ist ein 
schnelles Kopierprogramm wichtig. Wenn 
Sie eine Diskette erst formatieren und 
dann die Files einzeln mit NEWFIDM ko- 
pieren, wie dies bei Erphi-Besitzern bisher 
üblich war, dauert das bei einer vollen 
Diskette 15 Minuten oder gar mehr. Das 
gepatchte Superauick ist mit 2 Laufwerken 
und 128K Apple Ile in 110 Sekunden 
fertig. 

Der Erphi-Controller benutzt ein unübli- 
ches Aufzeichnungsverfahren: Alle Tracks 
mit gerader Spurnummer liegen auf der 
Seite O (unten), alle Tracks mit ungerader 
Spurnummer auf der Seite 1 (oben). Der 
große Vorteil ist, daß dadurch im Normal- 
betrieb weniger Kopfbewegungen not- 
wendig sind. Müssen Sie beispielsweise 
ein File von den Tracks 4 bis 7 lesen, so 
sind nur 2 Kopfbewegungen notwendig: 1. 
Bewegung hin zu Track 4, Lesen der 
Tracks 4 und 5, 2. Kopfbewegung zu Track 
6, Lesen der Tracks 6 und 7. Bei einem 
anderen Controller sind 4 Bewegungen 
notwendig. Der Nachteil: Kein Kopierpro- 
gramm beherrscht diese Technik. 

Mit ein paar Ergänzungen kann Super- 
quick dazu gebracht werden, nur noch bei 
einem Übergang von einem Track mit un- 
gerader zu einem Track mit gerader Spur- 
nummer den Kopfschlitten zu bewegen. 
Bei jedem Trackwechsel muß aber der 
aktive Kopf gewechselt werden. Es würde 
an dieser Stelle zu weit führen, alle Einzel- 
heiten der Programmierung zu bespre- 
chen. Es wurde ein Applesoft-Programm 
entwickelt, das Ihnen alle Patcharbeit ab- 
nimmt. Sie brauchen nur den Bildschirm- 
anweisungen zu folgen. 


Handhabung 

Tippen Sie das Applesoft-Programm ab. 
Speichern Sie es unter dem Namen 
SQ.PÄTCHER aufzeiner DOS-3.3- oder 
ProDOS-Diskette. Benutzen Sie ProDOS, 
wenn Sie eine Kopie Ihres Original-Super- 


quick patchen wollen. Benutzen Sie DOS 





3.3, wenn Sie Superquick mit GONVERT) 


oder PROTODOSikonvertiert haben. Es ist 
wichtig, daß das Patch- Programm im sel- 
ben Diskettenformat vorliegt wie Super- 


quick! Geben Sie die Zeilen von PATCH- 
.‚STARTER entweder direkt über die Tasta- 
tur ein (mit <RETURN> nach jeder Zeile) 
oder schreiben Sie sich einen EXEC-File 
mit diesem Inhalt, Folgen Sie den Bild- 
schirmanweisungen. 

Starten Sie SQ.PATCHER niemals direkt 
ohne den PATCH.STARTER, da dann Tei- 
le des BASIC-Programms überschrieben 
werden. 

Es entsteht ein neues Programm EQUICK, 
mit dem Sie nun 160-Track Disketten am 
Erphi-Autopatch-Controller AFDC kopie- 
ren können. Die Handhabung ist gegen- 
über dem Original unverändert. Sie kön- 
nen allerdings die Parameter für die Track- 
anzahl nicht mehr ändern. Auch sollten Sie 
das Installations-Programm SQUICK.IN- 
STALL für EQUICK nicht benutzen. 
EQUICK wurde so eingestellt, das sowohl 
die Language-Card als auch die zweite 
64K-Bank des Ile, falls vorhanden, als 
auch IBS-RAM-Karten bei Vorhandensein 
benutzt werden, Der Bereich von DOS 3,3 
ist nach wie vor geschützt und kann nur 
über die <P>-Option mitbenutzt werden. 
Je mehr Speicher Sie haben, desto 
schneiler geschieht die Kopie. 

EQUICK hat wieder eine Kaffee-Pause 
aus Ihrem Computeralltag weg „rationali- 
siert”. 


Hinweise zur Peeker-Sammeldisk 

Die Sammeldisk enthält die Programme 
PATCH.STARTER und SQ.PATCHER, die 
zuvor mit DOSTOPRO auf eine Kopie der 
Superquick-Programmdiskette konvertiert 
werden müssen. Oder man kopiert umge- 
kehrt die Superquick-Dateien auf eine 
DOS-Diskette mittels PROTODOS. Da- 
nach EXEC PATCH.STARTER, fertig. Alle 
seit dem 1.3.1985 ausgelieferten Super- 
quick-Disketten enthalten bereits das für 
160-Track-Erphi-Laufwerke modifizierte 
EQUICK. Altbesteller, die keine Sammel- 
diskettenbezieher sind, können die geän- 
derte Programmaiskette kostenlos anfor- 
dern, wenn sie 160-Spur-Erphi-Laufwerke 
besitzen. Es sein noch darauf hingewie- 
sen, daß der Programmautor Arne Schä- 
pers mangels Erphi-Laufwerk den Patch 
nicht selbst schreiben konnte. 
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PATCH.STARTER 





Über die Tastatur eingeben oder als Text- 


file speichern und mit 
EXEC PATCH.STARTER 
laden. 


POKE 193,1 

POKE 194,64 
POKE 16384, % 
LOAD SQ, PATCHER 
CALL 54514 

RUN 


| SQ@.PATCHER 


19 REM *** PATCHER FUER SUPERQUICK 
ll REM #*%* 16 TRACK ERPHI-CONTROLLER AFDC 2 
12 REM *** DR. JUERGEN B. KEHREL 1986 


28 HOME : 


PRINT "LEGEN SIE DIE DISKETTE MIT" 


21 PRINT "SUPERQUICK IN LAUFWERK 1 UND" 
22 PRINT "DRUECKEN SIE DANN EINE TASTE," 
23 POKE - 16368,9: WAIT -— 16384,128,® 

24 PRINT CHR$ (4); "BLOAD SQUICK, ABACS, DI" 


25 RESTORE : POKE 484]1,4 
26 FOR I = TO 2: READ PR: 
27 DATA 176, 247,96 

28 FOR I = ß TO 5: READ P%: 


POKE 4844 + I,P%: 


POKE 4868 + I,P%: 


NEXT 


NEXT 


Kyan-Club-Nachrichten 


Der exakte Versandtermin stand zum 
Redaktionsschluß noch nicht fest, doch 
dürfte Ihr 2,0-Päckchen mit 350seitigem 
Handbuch im Ringordner, Reference- 
Chart und zwei beidseitig bespielten 
Disketten (mit komplettem ProDOS 
1.1.1 einschließlich BASIC.SYSTEM 
1,11), wenn Sie diese Zeilen lesen, ge- 
rade unterwegs oder vielleicht schon 
bei Ihnen eingetroffen sein. Übrigens: 
Interessenten können auch jetzt noch 
Club-Mitglieder werden. Der Preis von 
DM 170,- für Kyan 2,0 bleibt unverän- 
dert, doch wird die Version 1.2 jetzt 
nicht mehr verschickt, da damit erzeug- 
te Assembler-Routinen mit 2,0 nicht 
kompatibel sind. Unsere erste Club- 
Diskette (Club-Preis DM 20,-), die Sie 
bei Bedarf anfordern können, ist in Vor- 
bereitung und enthält neben Anfänger- 
programmen diverse Assembler-Inciu- 
de-Files. Näheres im Kyan-Club-Rund- 
schreiben. Die Kyan-Pascal-Toolkits, 
aus denen Sie je nach Interesse und 
Bedarf auswählen können, erscheinen 
wahrscheinlich erst im Juni: 

1. Mouse-Text-Toolkit $48.00 

2. Advanced-Graphics-Toolkit $48.00 
3. Programming-Utility-Toolkit $48.00 
Club-Preis je Toolkit nur DM 120,-. Nä- 
heres zum Inhalt im Kyan-Club-Rund- 
schreiben. Achtung: Unsere Rund- 
schreiben mit Tips und Tricks, Mit- 
gliedslisten und sonstigen Infos;erhal- 
‚ten r nur diejenigen Besteller, dieWEiUDN 
ialivermerkt haben! 


1. ProDOS-1.1.1-Kompatiblen-Patch 


Wie bereits bekannt, läuft Kyan-Pascal 
auf manchen Kompatiblen nicht. Da Ar- 
ne Schäpers kurzfristig erkrankt ist, ha- 
be ich den nachfolgenden Patch für Pro- 
DOS 1.1.1 selbst schreiben müssen, 
Die S(eitenangaben) beziehen sich auf 
seine „ProDOS-Analyse“. Im übrigen 
funktioniert der Patch bei jeder „1.1.1- 
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Club” Sub 


Users.Disk“ mit „PRODOS" (30 
Blocks, 18-Sept-84) als erster Datei auf 
einer normalen 1.1.1-Diskeite. Verfan- 
ren Sie wie folgt: 


Schritt 1: Kopieren Sie die Kyan-Pas- 

cal-2.0-Diskette ‚Disk 2, Side 2°die 
er 

mit der ProDOS- „Users,Disk” identisch 

ist, mit einem beliebigen 35-Spur-Ko- 

pierprogramm, z.B. COPYA u.ä, 


Schritt 2: Booten Sie eine DOS-3.3- 
Arbeitsdiskette von einem beliebigen 
Slot und geben Sie dann das auf S. 59 
abgedruckte Maschinenprogramm ein 
und speichern Sie es sicherheitshalber 
mit PRODOS.PATCH,1.1.1, A$900, 
L$100, D1 auf Ihrer DOS-3.3-Arbeits- 
diskette. Das Programm ist also jetzt 
gesichert und zusätzlich noch im Spei- 
cher. 


Schritt 3: Legen Sie die Kopie von 
„Disk 2, Side 2" (= Users.Disk) in 
Drive 1, gehen Sie mit CALL -151 in 
den Monitor und tippen Sie 

900G. 

Damit werden die ersten 5 Spuren von 
„Disk 2, Side 2" wie folgt in den Spei- 
cher eingelesen: 

$1000-$13FF: 2 Boot-Blocks 
$1400-$i1BFF: 4 Volume-Directory- 
Blocks 

$1C00-$1DFF: 1 Volume-Bit-Map- 
Blocks 

$1E00-$1FFF: 1 PRODOS-Index-Block 
$2000-$59FF: 29 PRODOS-Programm- 
Blocks 


Schritt 4: Führen Sie folgende zwei 
Patches durch: 

2415: DO 17 (= BNE $242E; S. 318; 
statt 2415: EO EA = CPX #$EA: Machi- 
ne-ID-Patch $FBB3). 


29 
39 
al 
32 


34 
35 
36 


38 
39 
ap 
al 
42 
43 
44 


DATA 169,255,9,0,9,9 

FOR I = 6 TO A: READ P%: POKE 5386 + I,P%: 
DATA 249 ,9,286,28,19 

POKE 5737,73: POKE 5738,24: POKE 6922,74 
POKE 6629,74: POKE 6934,4ß: POKE 6935,24 


NEXT 


FOR I = 8 TO 38: READ P%: POKE 6184 + I,P%: NEXT 
DATA 32,157,23,174,26,19,173,28,19,41,1,246,1® 

DATA 221,136,192,221,141,192,221,137,192,96,221 

DATA 136,192,221,149,192,221,137,192,96,32,154,22,76,43,24 
POKE 6661,48: POKE 6662,6 

FOR I = Ö TO 9: READ P%: POKE 7384 + I,P%: NEXT 
DATA 212 242, 225.207 255 243 186 177.182,.176 

FOR I = $ TO 3: READ P%: POKE 7637 + I,P%: NEXT 
DATA 76,171,3ß, 234 

FOKE 7984,28: POKE 7985,24 

FOR I = 6 TO 28: READ P%: POKE 8212 + I,P%: NEXT 
DATA 177,182,176,16®,212,242,225,227,235,243,186,16® 
DATA 169,197,242,249,232,233,173,195,239,238, 244 


POKE 8244 + I,P%: NEXT 


45 

46 

47 DATA 242,239, 236,2356,229,242 
48 FOR I = 8 TO 33: READ P%: 

49 


50 
51 
sn 
61 
62 
63 
64 


DATA 199,229,24#,225,244,227,232,229,228,16®,246 
DATA 239,238,186,16®,196,242,174,16P,292,245,229,242 
DATA 231,229,238,169,203,229,232,242,229,236, 169 
PRINT : PRINT "BITTE LEGEN SIE DIE DISKETTE' 

PRINT "EIN, AUF DIE EQUICK GESPEICHERT" 

PRINT "WERDEN SOLL. DRUECKEN SIE DANN" 

PRINT "EINE BELIEBIGE TASTE." 

POKE - 16368,9: WAIT - 16384,128,9 


65 PRINT CHR$ (4);"BSAVE EQUICK, A$AC3,L$1830" 


66 PRINT : INVERSE : PRINT "FERTIG": 
269E: 38 EA (= SEC NOP; S. 324; statt 
269E: DO 03 = BNE $26A3: Apple- 


Logo-Patch $FBO9). 

Wenn das letzte Byte Ihres kompatiblen 
DOS-Controllers ($C6FF) nicht $00 
enthält, dann führen Sie noch die näch- 
sten zwei Patches durch, nach denen 
allerdings z.B. die Megaboard-Festplat- 
te nicht mehr erkannt werden würde: 
254B: A9 00 (= LDA #$00,; S. 321; 
statt 254B: B1 10 = LDA ($10),Y: Disk- 
Siot-Suche-Patch) 

101D: A9 00 (= LDA #$00; S. 183; 
statt 101D: B1 48 = LDA ($48),Y: Boot- 
Slot-Patch). 


Schritt 5: Tippen Sie nun 

904G, 

womit die ersten 5 Spuren wieder auf 
die Diskette zurückgeschrieben wer- 
den. Jetzt müßte die „Users.Disk” kor- 
rekt booten. Wenn nicht, dann haben 
Sie keinen Kompatiblen, sondern einen 
„Unkompatiblen“ und müssen anhand 
der „ProDOS-Analyse* umfassendere 
Patches vornehmen, 


2. Anfänger-Arbeitsdiskette 


Anfänger haben wahrscheinlich zu- 
nächst Schwierigkeiten mit den Pro- 
DOS-Subdirectories sowie mit den 
zahlreichen Kix-Utilities und sollten sich 
ein Volume „/K“ mit zunächst nur fol- 
genden Dateien zusammenstellen (im 
Klammern Blockanzahl): 
/K 
PRODOS (30) —- Version 1.1.1 
Sr (6) - Haupt-Menü 
S (16) — Directory-Befehl 
D (21) - Editor (gerätespezifisch!) 
C (55) - Pascal-Compiter 

S (22) - Assembler 
De Library 


NORMAL : END 


STDLIB.S (21) — Standard-Lib-Source 
Dieses Volume mit PR#6 booten, dann 


nach Prompt „%" das halbfett Ge- 


druckte eingeben; Leertasten be- 
achten! 
%LS-N-L 


für Anzeige des Directory. 

% ED TEST.P 

für Editor starten, 

Jetzt Testprogramm eingeben: 
Program Test; 

Begin 

Writeln (’Test‘) 

End. 

Jetzt die Tasten 

EscX 

tippen zum automatischen Abspeichern 
von „TIEST.P", Nun compilieren: 

% PC TEST.P 

erzeugt fertigen Objektcode „TEST. 
Zur Kontrolle Directory ansehen mit 
%LS-N-L 

% TEST 

startet Objektcode „TEST" und zeigt 
„Test“ am Bildschirm an. Ende! 

Für Fortgeschrittene: 

% PC TEST.P -S 

erzeugt Assembler-Source „P.OUT”. 
„P-OUT* = Pascal-Compiter-Oufput. 
% AS P.OUT 

erzeugt Objektcode „A,OUT“. 
„A.OUT" = Assembler-Output. 
Alternativ: 

% AS P.OUT -O TEST 

erzeugt Objektceode „TEST“ 

= identisch mit „A.OUT", 

Wir merken uns: 

TEST,P = Pascal-Quelltext 

(Suffix „.P“ stets selbst tippen!) 
TEST = Pascal-Objektcode 

(Suffix „.P" entfällt dann automatisch) 
P,OUT = Assembler-Quelitext 
A.OUT = Assembler-Objektcode 


Ulrich Stiehl 
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DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler 
geschriebenes, ungewöhnlich schnel- 
les, unkomplizieres und zugleich 

„narrensicheres” AdreßB-, Datei- und 

Schemabriefprogramm. 

Der DB-Meister dient zum Anlegen, 

Pflegen, Sortieren, Selektieren und 

Ausdrucken von Dateien aller Art. Als 

Apple-Benutzer wissen Sie, wie lang- 

sam viele Programme dieser Art sind. 

Nicht so der DB-Meister! 

Drei Beispiele: 

— Jeder beliebige von 560-999 Re- 
cords wird nach Indexfeldern in 0,2 
Sekunden gefunden. 

— Eine komplette Datendiskette mit 
z.B. 600 Records läßt sich in 1 
Minute nach 3 Feldern sortieren 
und untersortieren. Dabei ist die 
Zeit für Diskettenzugriff bereits mit- 
gerechnet. 

— Das Einlesen eines 50 Sektoren 
langen Programm-Moduls dauert 
nur 3,5 Sekunden. 


Technische Daten des DB-Meisters 
— Recordlänge bis zu 230 Zeichen 


— 560 bis 1000 Records pro Daten- 
diskette 


— Maximal 25 Felder pro Record 


— 4 Datentypen (String, Integer, Dezi- 
malzahl, Real) 


— Suche nach 3 Indexfeldern — je 4 
Zeichen lang — mit Wildcard-Funk- 
tion 

— Sortieren und Filtern (kumuliertes 
Selektieren) geschieht nach den 
Index-Feldern 


— Ausdruck der Dateien als Etiketten, 
Listen und Schemabriefe (mit Fel- 
der- und Tastatureinschüben an be- 
liebigen Stellen des Formbriefes) 


— normal kopierbare Programmdis- 
Ketten, unterteilt in Hauptprogram- 
me und diverse Hilfsprogramme 


— lauffähig auf II+/e/c; 
Ausnahme: Brieftextprogramm läuft 
nur auf Ile/c mit 80-Zeichenkarte 


Neu ab Mai/1986 

Zwei Programme und zwei gedruckte 
Anleitungen für (a) 35-Spur-Disket- 
tenversion und (b) Megaboard-Fest- 
platten-Version 

Gesamtpreis DM 290,— 


Hüthig Software Service 
Postfach 102869 - 6900 Heidelberg 
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DOS-3.3-Backup-Programm 


für die Megaboard-Festplatte 


von Ulrich Stiehl 


Das folgende Kopierprogramm eignet sich 
für Festplatten, die an den Megaboard- 
Controller der Firma Frank & Britting ange- 
schlossen worden sind, Insbesondere für 
die anstelle des Netzteils eingebaute Me- 
ga-Core oder die externe MDB (= „mobile 
Datenbox*). 

Wenn man eine Festplatte erwirbt, so muß 
man sich auch Gedanken über eine geeig- 
nete Datensicherung machen. Unser Pro- 
gamm kopiert ein 140K-DOS-3.3-Volume 
von der MDB auf ein 35-Spur-Laufwerk 
und umgekehrt in nur 22,5s. Das vorgela- 
gerte Applesoft-Programm MDB.KOPY 
dient als Muster, das man sich auf seine 
eigenen Verhältnisse abändern sollte. 
Backup-Beispiel - 

Nehmen wir an, daß sich auf einer MDB10 
neben ProDOS-, UCSD- und CP/M-Volu- 
mes und dem sog. DOS-System-Volume 
insgesamt 9 weitere DOS-3.3-Volumes 
mit je 2 Drive zu je 140K befinden (= 
Volumes 2-10). Man würde dann 18 35- 
Spur-Disketten benötigen, die aus Grün- 
den der Geschwindigkeit bei der späteren 
Datensicherung bereits vorformatiert sein 
sollten (mit INIT HELLO, 0.&.). Nehmen wir 
ferner an, daß sich das 35-Spur-Laufwerk 
in Slot 6, Drive 1 befindet und die 9 MDB- 
Volumes die Nummern 2-10 haben. Dann 
sind folgende 18 Kopierdurchläufe erfor- 
derlich: 

57,D1,V2 — S6,D1 1. Diskette 

57,D2,V2 > 56,D1 2. Diskette 


S7,D1,V10 — S6,D1 17. Diskette 
S57,D2,V10 — S6,D2 18. Diskette 
Man kann dann das Applesoft-Programm 
MDB.KOPY durch das Mini-Programm 
MDB.KOPY.BEISPIEL ersetzen, das die 
Slot-, Drive- und Volume-Parameter auto- 


matisch zuweist. Dann benötigt man, weil 
die Eingabe über die Tastatur entfällt, ein- 
schließlich des Diskettenwechselns etwa 
30s pro Diskettenkopie, mithin für 18 Dis- 
ketten insgesamt 9 Minuten. Dies ist eine 
durchaus erträgliche Zeit für immerhin 2 x 
140 *» 9 = 2.520K (etwa 2.5M). Damit 
alles reibungslos abläuft, sollte man für 
eine deutliche Beschriftung der Backup- 
Disketten Sorge tragen. Ein weiterer Pra- 
xis-Tip: Legen Sie auf jeder Backup-Dis- 
kette eine zusätzliche Datei mit demjeni- 
gen Namen an, mit dem Sie das Etikett der 
Diskette beschriftet haben, z.B. 

SAVE KUNDENDATEI-V2-D! 

Das Programm MDB.KOPY zeigt nämlich 
aus Sicherheitsgründen vor jedem Kopier- 
durchlauf das Inhaltsverzeichnis der Back- 
up-Kopie an. 
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MDB.KOPY.BEISPIEL 
18 Backup-Disketten für Slot 6, Drive 1 
Volumes 2-10, Drive 1-2, Slot 7 (Harddisk) 


18 PRINT CHR$ (4)"BLOAD MDB.KOPY.OBJ": 
28 PRINT CHR$ (21): TEXT : HOME : INVERSE : 
PRINT "MDB.KOPIERER DOS 3.5": 
PRINT "yON U.STIEHL 1.4.86": NORMAL :S = 33ß9 
38 FOR V = 2 TO 19: FOR D= 1 T0 2: PRINT: 
PRINT "BACKUP FUER V";V;",D";D;" EINLEGEN ";: 
POKE 49168,9: GET X$ 
ad POKE S + 3,7 & 16: POKE S + 4,D: POKE S + 5,V 
POKE S + 6,6 & 16: POKE S + 7,1: POKE S + 8, 
56 HOME : PRINT : PRINT CHR$ (4)"CATALOG,S6,DL": 
PRINT "DUPLIKATDISK, RICHTIG J/N ":; 
66 CET X$: ON X$ = "N" GOTO 58: IF X$ < > "J" GOTO 69 
7® PRINT : CALL S: NEXT D,V 


MDB.KOPY.OPJ 


BSAVE MDB.KOPY.OBJ, A330%, L498 


1 ORG 3398 :$OCHA 
2 ”* 
3 * MDB.KOPY.OBJ US/4/86 
4 x: m——— 
5 2 
6 * MDB-Mobile-Datenbox-Kopierer 
ö * für 35-Spur-DOS-Yolumes 
8 * 64K-Apple mit 48K-DOS-3.3 
9 * Kopierzeiten: 
18 + 41,ßs Disk to Disk 
11 x 22,55 Disk to Hard 
12 * 6,2s Hard to Hard 
15 * 
ÖCEA: AC EE BC 14 JMP START 
15 * 
ÖCET: 78 16  ORIGSLOT HEX 79 :3300+3 
ÖCEB: Bl Ir ORIGDRIV HEX Bl ‚3509+4 
BCEI: 83 18 ORIGVOL HEX 83 ‚3300+5 
ÖCEA: 79 19 DUPLSLOT HEX 7 :33D0+6 
ÖCEB: #2 28 DUPLDRIV HEX #2 :3300+7 
ÖCEC: 83 21 DUPLVOL HEX 93 ;33068+8 
ÖCED: BB 22 INITFLAG HEX B6 ;3599+9 
23 * 
24 IOBL EQU $CE 
25 IOBH EQU $CF 
26 DOSWARM EQU $3DB 
27 RWTS EQU $3D9 
28 GETIOB EQU $3E3 
29 HOME EQU $FC58 
30 HEXOUT EQU $FDDA 
3l PRINT EQU $FDED 
32 PUFFERB EQU $1990 
33 PUFFERl EQU $DBBd ;Bankl 
54 PUFFER? EQU $DB8d ;Bank2 
35 * 
38 * DOS-Input-Output-Block nehmen 
IT a 
ACER; 28 58 FC 38 START JSR HOME 
ACFl: A9 CB 39 LDA #'K" 
ÖCF3: 28 ED FD 40 JSR PRINT 
ÖCF6: 28 E3 83 41 JSR GETIOB 
ACF9: 84 CE 42 57% IDBL 
ÖCFB: 85 CF 43 STA IOBH 
44 * 
45 * Read Tracks 34-27, 26, 25-23 
46 * 
ÖCFD: 28 81 BE 47 JSR ORIGINAL 
Ds: 28 BE ÖD 48 JSR T34_27 
AD63: 29 32 BE 49 JSR BLOCKB 
sDB6: 28 9B DD 59 JSR T26_26 
dD89: 28 32 BE 51 JSR BLOCK® 
dD6c: 28 AB db 52 JSR T25_23 
ÖDeF: 20 32 BE 53 JSR BLOCK® 
54 * 
55 *9 = kein Init, 1 >= Init 
56 * Bei Festplatte kein Init!!! 
BT * 
dD12: AD ED BC 58 INITJA LDA ZENITFLAG 
#D15: FB 12 59 BEQ INITNEIN 
ÖD17: 28 AS GE 6B JSR DUPLIKAT 
ADiA: AB GC 61 LDY #80C ‚Command | 


ADIC: 
ADIE: 
ÖDRB: 
ÖD22: 
AD24: 
ÄD26: 
BD29: 


ÖD2A: 
ÖD2D: 
AD3B: 
9D33: 
BD36: 
BD39: 
ÖDSC: 


BDSF': 
BDA2: 
AD4A5: 
BD4AB: 
SDAB: 
BDAB: 
ÖD51: 


BD54: 
BD57: 
MDSA: 
BD5D: 
BD6B: 
AD63: 
ÖDEB: 


BD69: 
ÖDEC: 
BDEF: 
ADT2: 
8075: 


ADT78: 
BDTB: 
ÖDTE: 
ÖD81: 
BD8A: 


dD87: 
BDSA: 
ADED: 


ÖDSE: 
BD9B: 
AD93: 
BDS5: 
ADB: 


ADSB: 
ÖDSD: 
ADAB: 
BDA2: 
DAB: 


ÖDAS: 
BDAA: 
ÖDAD: 
ÖDAF: 
ÖDB2: 


ÖDB5: 
ADB”T: 
BDBA: 
ÖDBC: 
BDBF: 


ADC2: 
BDC4: 
ADC7: 
dDCS: 
ÖDCG: 


ÖDCF: 
ÖDD1: 


A9 
91 
AD 
a9 
91 
20 


26 
28 
2 
29 
29 
20 
28 


28 
2d 
28 
28 
28 
28 
26 


28 
28 
28 
28 
28 
20 
28 


28 
20 
28 


28 


2B 
20 
20 
29 
2B 


AD 
AD 
6% 


Ag 
20 
A9 
8D 
ac 


Ag 
28 
Ag 
8D 
ac 


Ag 
28 
Ag 
8D 
4c 


dA 
CE 
B3 
9 
CE 
74 


A6 
öE 
32 
9B 
32 
A8 
52 


8l 
Bö 


C2 
32 
CF 


A6 
B5 
32 
Cr 
32 
CF 
32 


8l 
DC 
32 
E9 
32 


A6 
DC 


EI 
32 


8l 
8l 


22 
F6 
d8 
5E 
85 


1A 
F6 
81 
5E 
19 


19 
F6 
B3 
5E 
21 


16 
F6 
d8 
5E 
#5 


BE 
F& 
Öl 
19 


BD 
F6 


BE 


dE 
BD 
DE 
BD 
BE 
BD 
BE 


DE 
BD 
BE 
BD 
BE 
ÖD 
BE 


DE 
ÖD 
BE 
dD 
BE 
ÖD 
BE 


BE 
öD 
ÖE 
öD 
dE 


ÖE 
BD 
DE 
ÖD 
dE 


ca 
cd 


BD 
dE 
dE 
ÖD 
dE 
dE 
dD 
dE 
9E 
dD 
dE 
dE 
BD 
ÖE 
öE 


AD 


118 
Fl 
112 
113 
114 
115 
116 
117 
118 
119 
126 
121 
122 
123 
124 
125 
126 
127 
128 
129 
136 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 


LDA 

STA 

LDY 

LDA 

STA 

JSR 
INITNEIN NOP 
* 


+4 
(IOBL),Y 
+$03 

+9 
(IOBL),Y 
RWTS1 


"Int 


;Volunme 
:d=R254 


* Write Tracks 34-27, 26, 25-23 


% 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 


* Read Tracks 


JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 


* 


JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 


Read Tracks 


* 


JSR 
JSR 
JSR 
JSR 
JSR 


* 


JSR 
JSR 
JSR 
JSR 
JSR 


LDA 

LDA 

RTS 
T34_27 LDA 
JSR 
LDA 
STA 
JMP 
T26226 LDA 
JSR 
LDA 
STA 
JMP 


LDA 
JSR 
LDA 
STA 
JMP 


T25_23 


* 

T22_15 LDA 
JSR 
LDA 
STA 
JMP 
T14_l4 LDA 
JSR 
LDA 
STA 
JMP 
715211] LDA 
JSR 


DUPLIKAT 
T34_27 
BLOCK 
T26_26 
BLOCK 
T2523 
BLOCK® 


22-15, 14, 


ORIGINAL 
12215 
BLOCK 
T14_14 
BLOCK 
7js2])1 
BLOCK® 


Write Tracks 22-15, 14, 


DUPLIKAT 
722.15 
BLOCK® 
T14_14 
BLOCK 
71511 
BLOCK® 


15-11 


13-11 


18-3, 2-9 


ORIGINAL 


T18_83 
BLOCK® 
TP2_98 
BLOCK® 


Write Tracks 16-3, 2-Ö 


DUPLIKAT 
T16_83 
BLOCK® 
T92_99 
BLOCK® 


$cdsl 
$cö8l 


+34 
TRACKER 
+8 
TCOUNT 
PUF® 


+26 
TRACKER 
#1 
TCOUNT 
PUF1 


#25 
TRACKER 
+3 
TCOUNT 
PUFZ 


#22 
TRACKER 
+8 
TCOUNT 
PUF® 


+14 
TRACKER 
#1 
TCOUNT 
PUF1 


#13 
TRACKER 


‚Ende 
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BDDA: AY BZ 152 LDA #3 dESA: AB BD 243 LDY #$8D ‚Error 
ÖDD6: 8D 5E PER 153 STA TCOUNT dESC: Bl CE 244 LDA (IOBL),Y 
ADD9: AC 21 BE 154 JMP PUF?2 ÖESE: 26 DA FD 245 JSR HEXOUT 
155 %# dETL: AC DE B3 246 JMP DOSWARM 
ADDC: A9 BA 156 Tıß_d3 LDA #19 8 247 %* 
ÖDDE: 26 F6 BD 157 JSR TRACKER ÖE74: 28 ES 03 248 RWTSI JSR GETIOB 
ÖDEL: A9 8 158 LDA #8 AE7T: 28 D9 B3 249 JSR RWTS 
ADEZS: SD 5E BE 159 STA TCOUNT BETA: BB E3 259 BCS ERROR 
DES: AC B5 BE 169 JMP PUF$ ÖETC: A9 BB 251 LDA +9 
‚ 161 * ÖETE: 85 48 252 STA $48 
DEI: AY 82 le2 TO2_d0 LDA #2 25 dESB: 69 253 RTS 
ÖDEB: 28 F6 dD 163 JSR TRACKER | 254 * 
DEE: A9 #3 164 LDA &3 | 255 x& Original-Volume: 1 Read 
| ÖDFß: SD 5E BE 165 STA TCOUNT 256 %* 
ÖDF3: AC 21 BE 166 JMP PUF2 | ÖES1l: Ad Bl 257 ORIGINAL LDY #$#1 ‚Siot 
167 * BE83: AD E7 BC 258 LDA ORIGSLOT 
| WDFE: AB PA 168 TRACKER LDY +#$94 ‚Track BE86: 91 CE 259 STA (IOBL),Y 
ÖDF8: 91 CE 169 STA. S(TOBL),Y ÖEBS: CB 268 INY ‚Drive 
ÖDFA: 6% 179 RTS ÖE89: AD EB BC 261 LDA ORIGDRIV 
171. ÖESC: 91 CE 262 STA (IOBL),Y 
ADFB: AB 8 172 BUFLOWI LDY +5$88 ‚low BESE: CB 263 INY ; Volume 
@DFD: 91 CE 173 STA (IOBL),Y ÖEBSF: AD ES BC 264 LDA ORIGVOL 
ÖDFF: 69 174 RTS ' E92: 91 CE 265 STA (IOBL),Y 
re BEJYA: AB BC 266 LDY #$6cC :Befehl 
BEDB: AB B9 176 BUFHIGHl LDY =#$99 high BESS: A9 Bl 267 LDA #1 ;Read 
BEB2: 91 CE 177. STA (IOBL),Y AE98: 91 CE 268 STA (IOBL),Y 
BEBA: 69 178 RTS BESA: 28 CB ÖE 269 JSR PATCHL 
188 x BESD: DB d6 270 BNE ORIGEXIT 
181 x* PUFB: 1B88-SFFF-RAM: 8 Spuren BESF: AD EI dc 27 LDA ORIGVOL 
182 x AEA2: 8D 66 AA 272 STA SAA66 : Volume 
BEBS: AY9 BB 183  PUF®ß LDA #+<PUFFERd BEAS: 69 273 ORIGEXIT RTS 
BEBT: 28 FB BD 184 JSR BUFLOWI 274 %* 
BEBA: A9 10 185 LDA #>PUFFER® 275 x Duplikat-Volume: 2 Write 
BEBC: 20 BO BE 186 JSR BUFHIGHl 276 %* 
ÖEdF: 60 187 RTS BEAS: AB Bl 277 DUPLIKAT LDY #$@1 :Slot 
188 * BEAB: AD EA BC 278 LDA DUPLSLOT 
189 x* PUFLl: DÖBB-DFFF-Bankl: 1 Spur ÖEAB: 91 CE 279 STA ({IOBL),Y 
198 x BEAD: C8 289 INY ;:Drive 
BEIB: A9 BB 191 BURI LDA #+<PUFFER1 ÖEAE: AD EB BC 281 LDA DUPLDRIV 
dEl2: 28 FB 6D 192 JSR BUFLOWI ÖEBl: 91 CE 282 STA (IOBL),Y 
BE15: A9 D® 193 LDA *#>PUFFERI ÖEBZ: C8 283 INY ; Volume 
BElT: 28 00 BE 194 JSR BUFHIGHLl ÖEBA: AD EC ÖC 284 LDA DUPLVOL 
ÖElA: AD 8B Ch 195 LDA $cd8B dEBT: 91 CE 285 STA (IOBL),Y 
SEID: AD 8B CP 196 LDA $cd8B ;RD/WR BEBYI: AB HC 286 LDY #$0C ‚Befehl 
BERDB: 69 197 RTS BEBB: AY 92 287 LDA #2 :Write 
198 * EBD: 91 CE 288 STA (IOBL},Y 
199 x PUF2: DOÖÖ-FFFF-Bank2: 3 Spuren dEBF: 28 CB ÖE 289 JSR PATCHL 
280 x BEC2: DE B6 298 BNE DUPLEXIT 
dE21: A9 HB 261 PUF2 LDA #<PUFFER2 BECA: AD EC üC 291 LDA DUPLVOL 
ÖE23: 20 FB 6D 202 JSR BUFLOW1 DBECT: 8D 66 AA 292 STA $AA66 : Volume 
ÖE26: AY DB 203 LDA #>PUFFER2 DECA: 60 293 DUPLEXIT RTS 
AE28: 20 dB BE 204 JSR BUFHIGHl 294 %* 
DE2B: AD 83 Cd 285 LDA $C983 295 & Patch für MDB-Controller 
ÖERE: AD 83 C$ 206 LDA $c983 ;RD/WR 296 * 
E31: 69 297 RTS dECB: A9 79 297 PATCHL LDA #878 :Slot 7 
268 x BECD: CD ET ÖC 298 CMP ORIGSLOT 
289 x Block-Transfer BED: DB 03 299 BNE PATCH2 
210 * BED2: CD EA dc 3pß CMP DUPLSLOT 
dE32: AB 85 211 BLOCKB LDY #585 ;Sektor | AEDS: 6% 361 PATCH2 RTS 
| BE34: A9 BF 212 LDA #15 8 2 
| BESS: 91 CE 215 STA (IOBL),Y Hinweis: 
DE38: 20 74 DE 214 BLOCK JSR RWTS1 Zu den IOB-Zeigern (Input-Output-Block) siehe „Apple 
ÖEZB: AB 69 215 LDY #$89 ;Puffer DOS 3.3“. S. 107 
dESD: Bi CE 216 LDA (IOBL),Y u a, 
BESF: 18 217 CLC MDB.KOPY 
dEAB: 69 Bl 218 ADC #1 ;INC 
ÖE42: 91 CE 219 STA (IOBL),Y 10 IF PEEK {116) «< » 150 OR PEEK (104) < » 8 THEN 
dE44: AB 65 228 LDY #$65 :Sektor PRINT "SPEICHERVERTEILUNG STIMMT NICHT!!": END 
AE46: Bl CE 221 LDA (IOBL),Y 15 ONERR GOTO 70 
BEA8: 38 222 SEC 20 PRINT CHR$ (4)"BLOAD MDB.KOPY.OBJ" 
BE49: ES 61 223 SBC # ;DEC 25 PRINT CHR$ (21): TEXT : HOME : INVERSE :! 
BEAB: 91 CE 224 STA (IOBL),Y PRINT "MDB.KOPIERER DOS 3,3": PRINT "VON U, STIEHL 1.4,86": 
BEAD: 18 E9 225 BPL BLOCKI NORMAL :S = 3300 
BEAF: AB 94 226 LDY #894 :Track 30 VTAB 3: PRINT: PRINT "ORIGINAL-SLOT: ";: GOSUB 65: 
dES1: Bl CE 227 LDA (IOBL),Y POKE S + 3,W » 16: PRINT "ORIGINAL-DRIVE: ";: 
DE53: 38 228 SEC GOSUB 65: POKE S + 4,W: PRINT "ORIGINAL-VOLUME:";: 
BES5A: E9 Bl 229 SBC #1 ;DEC GOSUB 65: POKE S + 5,W 
BE56: 91 CE 230 STA (IOBL),Y 35 PRINT : PRINT "DUPLIKAT-SLOT: ";: GOSUB 65: 
0658: CE 5E BE 231 DEC TCOUNT POKE S + 6,W =» 16: PRINT "DUPLIKAT-DRIVE: ";: 
BESB: DB DS 232 BNE BLOCK® GOSUB 65: POKE S + 7,W: PRINT "DUPLIKAT-VOLUME: ";: 
dESD: 6ß 233 RTS GOSUB 65: POKE S + 8,W 
ÖEBE: BB 254 TCOUNT HEX $ß 40 PRINT : PRINT "RICHTIG J/N "; 
2355 * 45 GET X$: ON X$ = N" GOTO 25: IF X$ « » "J" GOTO 45 
236 » Lesefehler 50 HOME : PRINT : PRINT CHR$ (4)"CATALOG,S"; 
237 %* PEEK (5 + 6) / 16:",D"; PEEK (S + 7);",V"; PEEK (S + B): 
DESF: 68 238 ERROR PLA PRINT „DUPLIKATDISK"; CHR$ (7): PRINT "RICHTIG J/N “; 
dmSd: 68 239 PLA 55 GET X$: ON X$ = "N" GOTO 25: IF X$ < » "J" GOTO 55 
BES1l: AD 81 Ch 249 LDA $cd8l 60 PRINT : CALL S: RUN 25 
OESA: AD 81 CB 24l LDA $c981 : RDROM 65 INPUT "";X$:W = VAL (X$): RETURN 
EST: 28 58 FC 242 JSR HOME 70 POKE 216,0: HOME : PRINT "FEHLER": END 
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JAHRE 


apple computer 


Ein Rückblick 


von Dr. Jürgen B. Kehrel 


Im April 1976 gründeten Steve Jobs und 
Steve Wozniak die „Garagenfirma“ Apple 
Computer Inc., nachdem sie Ende 1975 
den 6502-Computer „Apple I" in einigen 
Exemplaren gebaut und verkauft hatten. 
Dies war ein einfacher Einplatinen-Rech- 
ner gewesen, der sein Schwarz-Weiß-Bild 
auf einem Fernseher ausgab und einen 
Slot zum Anschluß eines Kassetteninterfa- 
ces besaß. Jobs hatte vorher bei Atari 
gearbeitet und dort u.a. das Spiel „Break- 
out“ entworfen. Wozniak hatte sein Colle- 
ge-Studium unterbrochen, um bei Hew- 
lett-Packard in der Taschenrechner-Ent- 
wicklung zu jobben. In ihm reifte auch die 
Idee zum Bau eines kompakten und preis- 
werten Homecomputers. Da HP an dem 
Projekt nicht interessiert war, begann er 
selbst mit der Produktion in seiner Garage 
und bot die fertigen Einzelexemplare in 
seinem Computerclub an. Zu den beiden 
„Urvätern“ von Apple kamen bald noch 
drei weitere hinzu: Rod Holt war Entwick- 
lungsingenieur bei Atari gewesen und 
baute für Apple u.a. das Schaltnetzteil. 
Mike Markkula war Marketingleiter beim 
Halbleiter-Hersteller Intel gewesen und 
übernahm bei Apple die kaufmännische 
Seite. Mike Scott kam von National Semi- 
conductor und wurde einer der Präsiden- 
ten von Apple. 


Im Laufe des Jahres 1976 wurde der Ap- 
ple II entwickelt, an dem auch noch Allen 
Baum (Monitor-ROM zusammen mit Woz- 
niak, Slotkonzept) und Chris Espinoza 
(Manuals zusammen mit Mike Scott) be- 
teiligt waren. Auf der West Coast Compu- 
ter Faire am 5. April 1977 wurde der Apple 
II öffentlich vorgestellt, ab Juni 1977 wur- 
de er ausgeliefert. Es war der erste Com- 
puter, der ein BASIC (Integer BASIC) im 
ROM hatte und auf nur einer Platine das 
bot, wozu andere Firmen einen ganzen 
Satz von Steckkarten benötigten. Der 
Hauptspeicher war 4K groß, konnte aber 
auf 16K und später auf 48K ausgebaut 
werden, als die neuen 16K-Speicherchips 
zur Verfügung standen (zum Vergleich: 
heute werden 256K-Chips in Serie gefer- 
tigt und 1M-Chips sind als Einzelexempla- 
re erhältlich). Als Massenspeicher diente 
ein normaler Kasseitenrecorder. 


Thomas Munnecke führte Anfang 1977 mit 
Steve Jobs ein Interview, das erst 1981 in 
der Zeitschrift ELCOMP veröffentlicht wur- 
de und aus dem wir auszugsweise mit 
freundlicher Genehmigung des Hofacker- 
Verlages zitieren: 

Jobs: Ich startete zusammen mit meinem 
Partner Steve Wozniak. Wir wollten eigent- 
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lich einen Computer für uns selber bauen, 
konnten uns diesen jedoch finanziell nicht 
leisten. Deshalb hat Woz einen entwickelt. 
Dieses Ding war großartig, und auf einmal 
wollten alle unsere Freunde und die Leute, 
die mit den Ingenieuren arbeiteten, ein 
solches Gerät für sich selber haben. Die- 
ses Gerät ... haben wir noch von Hand 
verdrahtet und es hat ca. 60 Stunden ge- 
dauert, bis wir es gebaut und die Fehler 
beseitigt hatten. ... Die Freunde haben uns 
dann gedrängt, eine Platine anzufertigen. 
Wir haben gesagt: „Ja, wir machen wel- 
che“ und ich habe mein Auto verkauft, 
mein Partner hat seinen HP 65-Rechner 
verkauft. Wir haben damit eine Platine ent- 
wickeln und die Platinen anfertigen lassen. 
... Das ganze Konzept hinter dem APPLE Il 
ist es, zuerst mit einem Home-Type Per- 
sonal Computer, welcher nicht ein Hobby- 
computer ist, auf den Markt zu kommen. 
Er sollte komplett aufgebaut sein, er sollte 
Farbgrafik haben und soll sehr einfach für 
den Neuling zu versiehen und anzuwen- 
den sein. Wir haben gesehen, daß der 
Markt sich in diese Richtung bewegt. ... 
Weg vom Hobbycompufter-Markt, in dem 
sich der Anwender seine Computer noch 
selbst zusammenbauen muß. Wir haben 
fesigestellt, daß die meisten Hobbyisten 
sich ihren Computer gar nicht selbst zu- 
sammenbauen wollen. Sie wollen ihn, 
wenn der Preis stimmt, lieber kaufen. Dies 
war unser Ziel der Entwicklung. 

... Wir fanden heraus, daß wir noch einige 
Dinge einbauen sollten, z.B. vier Analog/ 
Digital-Wandler zum Anschluß von vier 
„Paddies”. In BASIC wurde dann ein Be- 
fehl „Lese Paddie” eingelugt. Der Befehl 
ermöglichte es dann, die Werte vom 
Wandler direkt in den Rechner zu über- 
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nehmen. In gleicher Weise implementier- 
ten wir die Farbbefehle in BASIC. Im Ge- 
gensatz zu herkömmlichen Techniken, wo 
man zur Farbsteuerung zur Maschinen- 
ebene hinabsteigen muß, kann man hier 
einfach von BASIC aus die Farben steu- 
ern. .. Diese Möglichkeit hat es bis zu 
diesem Zeitpunkf noch in keiner Compu- 
tergeneration gegeben. 

... Alles ist in Software implementiert, es 
befindet sich alles im ROM und es ist sehr 
schnell. ... Wir haben bis heute noch kein 
schnelleres BASIC auf dem Markt gese- 
hen. Einige Benchmarktests zeigten, daß 
wir mindestens zweimal schneller waren 
als der nächstfolgende Mitbewerber. ... 
Wir leisten Ingenieurarbeit und keine Hob- 
byarbeit. ... Sie sehen, wir haben für unse- 
ren Computer ein Plastikgehäuse, wir ha- 
ben das erste BASIC im ROM, wir haben 
das erste System, welches die T6K RAMs 
verwendet. Auf jedem Gebiet im System 
sind wir um mindestens 9 Monate dem 
Rest der Mitbewerber voraus. 

Mitte 1978 erscheint der Apple Il Plus, der 
das um Fließkommaroutinen erweiterte 
Applesoft-BASIC im ROM enthält (von Mi- 
crosoft und Randy Wiggington). Steve 
Wozniak und Randy Wiggington haben au- 
Berdem DOS 3.1 und den Controller ent- 
wickelt, um auf einfache Weise Shugart- 
Laufwerke als Diskettenstation an den Ap- 
ple anzuschließen. Das Apple-Analog- 
Board besitzt nur 4 IC’s, während im 
Shugart-Original noch 23 benötigt wurden. 
Eine S-100-Controller-Karte hat 30 IC’s, 
der Apple-Controller dagegen nur ©. 
Steve Jobs war nicht sehr an der Compu- 
terentwicklung interessiert. Ihn reizte von 
Anfang an mehr der Verkauf des Apple, 
und er schaffte es, genügend Kredite auf- 





zutun und wichtige Leute in die Firma zu 
holen. Bis Dezember 1977 wurden alle 
Kredite wieder zurückgezahlt. Im Septem- 
ber 1978 arbeiteten bereits 74 Leute bei 
Apple Computer Inc., und die Geräte wa- 
ren zu diesem Zeitpunkt bei über 340 Ver- 
tragshändlern zu finden. 25% der Produk- 
tion wird exportiert, von denen einige wohl 
auch in Deutschland landeten. 

Seit 1979 war BASIS-Computer in Mün- 
ster der deutsche Apple-Generalimpor- 
teur, der den Apple II Plus mit 16K RAM 
für DM 3200,- zuzüglich Mehrwertsteuer 
anbot. Im September-Heft urteilte die Zeit- 
schrift CHIP: 


Gut 

* Klein, leistungsfähig 

* Umfangreiche Systemsoftware/Anwen- 
dersoftware 

* Hochauflösende Farbgrafik 

* Viele Erweiterungen auf dem Markt 
Schlecht 

x Relativ hoher Preis 


Besonders beim letzten Punkt hat sich bis 
heute nicht viel geändert. |TT bietet mit 
dem ITT 2020 und Siemens mit dem PC 
1000 jeweils eine „europäisierte“ Version 
des Apple an, die sich aber beide nicht 
durchsetzen konnten und bald wieder ver- 
schwanden. 

Im April 1979 gründeten ein paar der er- 
sten deutschen Apple-Enthusiasten die 
Apple User Group Europe e.V. (AUGE), 
die durch ihre Zeitung (User Magazin) und 
durch die Treffen der Regionalgruppen 
ganz entscheidend zum Erfolg des Apple 
in Deutschland mit beitrugen. Da es prak- 
tisch keine deutschsprachigen Veröffent- 
lichungen über den Apple gab und viele 
Fragen offen blieben, wurde die AUGE zu 
einem Kristallisationspunkt, an dem sich 
die Kenntnisse vieler engagierter Compu- 
ternutzer trafen. Die bis heute auf mehrere 
Megabyte gewachsene Clubsoftware 
deckt ganz legal das Verlangen ab, dem 
Apple auch „Futter“ zukommen zu lassen. 
Peeker-Leser Harry Fischer aus Frankfurt 
erwarb seinen Apple (A2S1-29311) im 
September 1979: Fa. Basis baute damals 
ein neues Händlernetz auf, Anruf dort er- 
gab, nächster Apple-Händler sitzt in Karls- 
ruhe. Also am nächsten Sonnabend auf 
nach Karlsruhe zum dortigen Appie-Händ- 
ler. Alle Apple ausverkauft. Anruf bei Filiale 
in Heilbronn. Auch dort kein Apple auf 
Lager. Der Techniker in Karlsruhe wußte 
einen Ausweg. Ein Apple Il sei defekt zu- 
rückgekommen, er besitze schon die 
ROMSs des Apple Il+ und könne wohl in 
kurzer Zeit repariert werden (defekte Ta- 
statur). Eine Taste wurde ausgewechselt, 
eine nachgelötet und dann konnte ich 
(zum Neupreis von DM 4000, -!) einen ge- 
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brauchten und reparierten 48K-Apple Il(+) 
heimfahren. Dieser Apple tut noch heute 
seinen Dienst, allerdings mit Unterstüt- 
zung eines GEPARD mit 10 MHZ-68000. 
Ewald Meyer ersteht bereits im Juni 1979 
das Modell A2S1-14914. Die Schweizer 
Peeker-Leser scheinen sich noch etwas 
schneller für einen Apple entschieden zu 
haben. Edmar Eichhorn in Uster wartet gar 
mit der Serien-Nummer A2S1-2037 und 
einer Floppy aus dem Jahre 1978 auf: Zu 
den technischen Details möchte ich er- 
wähnen, daß das Gerät noch mit einem 
115V Netzteil ausgerüstet war. Nach 
mehrmaligen Schwierigkeiten mit dem 
Netzteil und Trafo entschloß ich mich, ein 
neues einzubauen. Außer dieser Ände- 
rung ist mein Apple noch in der Original- 
ausführung, d.h. aufgerüstet auf 48K. ... 
Der Rechner ist heute täglich mehrere 
Stunden im Einsatz. Technische Berech- 
nungen, wie Typenauswahl, Schall- und 
Leistungsberechnungen und Ausgabe der 
Daten über einen Plotter von Mirwald Elec- 
tronic sind das hauptsächliche Einsatzge- 
biet. 

Ebenfalls zu den „Applern“ der ersten 
Stunde gehörte Herr Georg Lachenmeier 
in Zürich, dessen Apple II am 7.2.1979 
geliefert wurde: 16K RAM, Integer-BASIC, 
alter Monitor für Fr. 3650,-. Die 16 zusätz- 
lichen IC’s zum Aufstocken auf 48K schlu- 
gen noch einmal mit Fr. 550,- zu Buche, 
während die Floppydisk mit Controller (13 
Sektoren - 116K Kapazität) mit Fr. 1650,- 
berechnet wurde. Er schreibt: Zuerst aber 
folgte ein Entscheid für ein Computermo- 
dell. Und ich entschied mich — nein, nicht 
für Apple, sondern für einen Commodore 


PET 2001. Der Hauptgrund war, daß Com- 
modore kürzere Lieferzeiten versprach, 
und in meiner Naivität glaubte ich den 
Amerikanern. Sie kennen ja die Lieferver- 
sprechen. Zum PET (8K RAM, Fr. 3000, -), 
wovon wir zwei Stück kauften, kauften wir 
den billigsten Drucker für Fr. 3500,-.... ES 
war ein Centronics 779 Nadeldrucker, nur 
Großbuchstaben, ohne jede Intelligenz, 
ohne Traktorfeed. ... Nachdem Commodo- 
re seine Versprechungen bezüglich Disk- 
drives nicht hielt (Lieferfrist), und die Spei- 
chererweiterung astronomische Kosten 
verursacht hätte, entschied ich mich fru- 
striert für den Apple Il. Sofort wollte ich die 
zwei PET’s verkaufen, was bei einem ge- 
lang, doch durch den Preisverfall blieb ich 
auf dem zweiten sitzen. ... Sofort versuch- 
te ich, einen Apple II zu bekommen, und 
der Händler berücksichtigte mich als einen 
der ersten, doch warten mußten alle. Die 
Diskdrives waren rationiert, und jeder er- 
hielt vorerst nur ein Stück. 

Im Jahre 1980 gab es nicht nur den Apple 
II Plus mit Disk Il und DOS 3.2, sondern es 
waren ein Grafik-Tablett, der Thermodruk- 
ker Silentype und diverse Schnittstellen 
(parallel und seriell) dazugekommen. Ap- 
ple Pascal wurde als „die zur Zeit beste 
verfügbare, strukturierte Programmier- 
sprache“ angeboten. Außerdem boten 
viele Fremdhersteller Erweiterungen an, 
von denen die Videx-Videoterm-80-Zei- 
chenkarte wohl die größte Verbreitung 
fand, da sie den Apple zu professionellen 
Aufgaben befähigte. Die wichtigste Soft- 
ware wurde Visicalc, der Pionier der Tabel- 
lenkalkulation. Die Apple-Preisliste vom 
1.1.1981 weist folgende Posten auf: 
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Apple II Plus 16K DM 3396,65 
Apple II Plus 32K DM 3611,48 
Apple II Plus 48K DM 3827,31 


Pascal Language System DM 1381,99 
Disk TIL mit Gontreller DM 2913,66 
Disk II als 2, Laufwerk DM 1414,76 
Silentype Thermodrucker DM 1658,84 
Centronics Interface DM 636,19 


In einem frühen Prospekt heißt es: Apple 
hat sich einen Namen gemacht mit fort- 
schrittlichem Design und Innovationen 
wie: 

* Farbgrafiken 

* hochauflösender Grafik 

* Sprach- und Ton-Synthese 

* Analog-Eingabe 


Apple versteht System-Unterstützung so: 
Dokumentation, Software, Zubehör, und 
die Leistungsfähigkeiit des Systems, um 
all dies zu bewältigen. ... Wir kümmern uns 
um unsere Kunden! Mehr als 90% von 
ihnen sagen, daß sie ihren Freunden den 
Apple Il empfehlen würden. 

Die technische Entwicklung des Apple Il 
ist nicht stehengeblieben. Der Ile kam auf 
den Markt, der 128K Speicher und dop- 
peithochauflösende Grafik besitzen kann, 
jedoch von der eingebauten ROM-Soft- 
ware keinerlei Unterstützung erhält. Die 
Manuals mit den nötigen Informationen 
sind heute nur separat und gegen gutes 
Geld zu erstehen. Der Apple Ilc integrierte 
die wichtigsten Erweiterungen in einem 
handlichen Gehäuse, das wegen der feh- 
lenden transportablen Stromversorgung 
und des Monitors aber nicht zu einem 
„Portable“ reichte. Der angebotene Flach- 
bildschirm bringt eher Augenärzten neue 
Kunden. Der Ilc war zugleich auch der 
Rechner, der die neue Marktstrategie von 
Apple verkörperte: ein nettes geschlosse- 
nes System und dazu Handbücher mit 
Farbdruck. Beim Mac wurde das dann 
noch um eine Stufe potenziert geboten 
und brachte diesem Gerät den Ruf ein, der 
teuerste Spielcomputer der Welt zu sein. 
Laut „Byte“ machte Apple 1985 noch 
85% seines Umsatzes mit der Iler-Linie, in 
der Werbung ist der Apple Il aber praktisch 
verschwunden, auf Messeständen domi- 
niert der Mac. 1985 war für die Compute- 
industrie ein Krisenjahr, das Apple nur 
dank seines gesunden Finanzpolsters 
überstand. 1986 wird nicht weniger ein- 
fach werden, denn Apples Marktanteil hat 
sich innerhalb von zwei Jahren halbiert. 
Ein neuer Stern geht steil am Computer- 
himmel auf: Atari ST. Die Antwort von 
Apple läßt auf sich warten: Der Ilx soll 
vielleicht im Herbst kommen, einige wol- 
len ihn gar in Amerika schon gesehen 
haben. Aber kommt er wirklich? Apple 
sollte wissen: Äpfel, die über den Herbst 
hinaus am Baum hängen, fallen überreif 
herab und landen bestenfalls in der Mo- 
sterei. 


Peeker 5/86 


Bücher 


Das Macintosh Arbeitsbuch 

20 betriebswirtschaftliche Beispie- 
le aus der Praxis 

von Dr. Dieter Nenner 

1984, 189 S., kart., DM 58,-- 
Selbstverlag Dr. Dieter Nenner, 
München 

Gliederung 
Macintosh-Arbeitsweise mit Multi- 
plan — Grafik erstellen mit Micro- 
soft-Chart — Rechnungsstellung/ 
Faktura — Automatische Faktura — 
Bankkredit mit Alternative — Text- 
verarbeitung mit MacWrite — Kre- 
ditkundenbrief — Kleinlager, Inven- 
tur und Bestellwesen — Deckungs- 
beitrag-Vertrieb — Deckungsbei- 
tragsrechnung-Marketing — Ge- 
bietsumsatz — Gewinn- und Verlu- 
strechnung nach Großkunden oder 
Hauptumsatzträgern — Aktionsab- 
satzplan — Mediaplanung im Wer- 
bebereich — Jahresbudget mit Er- 
gebnisrechnung — Aktions-Erfolgs- 
kontrolle — Statistische Auswertun- 
gen — Projektmanagement — Pro- 
jektplan einer Gebäudeerrichtung: 
Neubau — Stückkostenkalkulation 
Bemerkungen 

Dieses im Selbstverlag erschiene- 
ne Buch des ehemaligen Ver- 
triebsleiters der Firma Apple ent- 
hält betriebswirtschaftliche Bei- 
spiele für die damals noch nicht 
eingedeutschten Programme Mul- 
tiplan, MS-Chart, Mac-Project, 
Mac-Write und Lisa-Calc. 


Das Floppybuch zum Apple Il 
von M. Czerwinski 

1985, 264 S., kart,, DM 

Data Becker, Düsseldorf 
Gliederung 

Eigenschaften und Anwendungen 
einer Flopy — Unsortierte sequen- 
tielle Dateien — Sortierte Sequen- 
tielle Dateien — Random-Dateien — 
Such- und Sortierverfahren — Ind- 
ex-sequentielle Dateien — Verket- 
tete Dateien — Programmierung ei- 
nes Literaturverzeichnisses — Wei- 
tere DOS-Kommandos und Be- 
sonderheiten - Das System 
ProDOS 

Bemerkungen 

Dieses Buch ist im Grunde eine 
Einführung in DOS 3.3 für Ap- 
plesoft-Progrmmierer mit einem 
kurzen Anhang zu ProDOS. Trotz 
des Titels „Floppybuch“ wird auf 
die Hardware-Seite nicht einge- 


gangen. Auch der maschinen- 
sprachliche RWTS-Zugriff wird 
nicht behandelt. 

Apple Ilc 

Handbuch für Anwender und Pro- 
grammierer 


von Carl Ulrich Wassermann 
1986, 324 S., kart., DM 35,-- 

Dr. Alfred Hüthig Verlag, Heidel- 
berg 
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Gliederung 

Der Apple IIc — Die Bedienung des 
Apple IIc - Applesoft BASIC - An- 
dere Programmiersprachen — An- 
schluß externer Geräte — Weiter- 
führende Informationen -— Anhang 
Bemerkungen 

Dieses Buch enthält in den ersten 
200 Seiten eine Einführung in Ap- 
plesoft-BASIC unter besonderer 
Berücksichtigung des Apple IlIc 
(Schnittstellen, Maus usw.). Im An- 
schluß daran wird in gedrängter 
Form auf den 65602 und den IIc- 
Monitor eingegangen. Für Ilc-Be- 
sitzer unentbehrlich. 


Das ProDOS-Handbuch 

von Karen Rice und Timothy Rice 
1985, 272 S., kart., DM 48,-- 
Sybex-Verlag, Düsseldorf 
Gliederung 

Einführung in ProDOS - Die 
Dienstprogramme auf der ProDOS 
User's Disk — Die System-Dienst- 
programm-Diskette für den Apple 
Ic — Verzeichnisse und ProDOS- 
Dateien -— ProDOS-Befehle — Pro- 
DOS, Speicherbelegung und peri- 
phere Geräte — Textdateien und 
BASIC-Programmierung unter 
ProDOS - ProDOS und binäre 
Dateien — Grafik und Ton unter 
ProDOS — ProDOS und das Ma- 
schinesprache-Interice — ProDos 
unter er Apple II — Anhang 
Bemerkungen 

Dieses Buch ist eine leichiver- 
ständliche, aber stark aufgeblähte 
und wenig Substanz bietende Ein- 
führung in ProDOS. Tips und 
Tricks sowie Utilities wird man ver- 
geblich suchen. Vieles von dem, 
was die Autoren schreiben, haben 
sie offenbar blind den teilweise fal- 
schen Darstellungen in den Pro- 
DOS-Manuals der Firma Apple 
entnommen (z.B. INPUT von 
Strings mit Kommas; S. 115). 


Programme zur Wahrscheinlich- 
keitsrechnung und Statistik 
Apple-Version 

von Heinrich Bockmeyer 

1985, 125 S., kart., DM 34,-- 

Aulis Verlag Deubner, Köln 
Gliederung 

Datenerfassung, -verarbeitung und 
-darstellung — Binominalverteilung 
— Polynominalverteilung — Pois- 
son-Verteiluing — Hypergeometri- 
sche Verteilung — Normalvertei- 
lung — Verteilung mit Gauß-Kur- 
venanpassung — Unbestimmtheit 
(Entropie) von Zufallsexperienten 
— Regressionsanalyse — Liste der 
Programme 

Bemerkungen 

Dieses Buch enthält eine Vielzahl 
kurzer Applesoft-Programme mit 
HGR-Grafik für den Stochastik- 
Unterricht an Schulen, die den Ap- 
ple Il einsetzen. 
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Mein BASIC-Manual, Teil 1 
Arbeitsunterlage für den Einsatz 
von Microrechnern, 1. Teil 

von H. W. Papenkort 

1985, 275 S., Loseblattsammlung, 
DM 24,80 

Selbstverlag H.W. Papenkort, 6239 
Eppstein 4 

Bemerkungen 

Dieses aus dem üblichen Rahmen 
fallende Loseblattwerk ist nicht 
leicht zu würdigen. Einerseits ent- 
hält es eine Fülle nützlicher Tips 
und Tricks zu Äpplesoft-Basic so- 
wie allgemeinere Beiträge, die zum 
Schmökern einladen. Andererseits 
fehlt dem Buch eine sinnvolle Glie- 
derung. Erheiternd ist die Typologie 
der Mikrocomputer-Freaks, die sich 
laut Papenkort in Löter, Knacker, 
Tüftler, Hacker, Perfektionisten, Av- 
antgardisten u.a, einteilen lassen. 


Arbeiten mit dem Macintosh 
von Norbert Hesseimann 

1984, 405 S., kart., DM 54, - 
Sybex-Verlag, Düsseldorf 
Gliederung 

Die Macintosh-Story — Erste Kon- 
takte — Der elektronische Schreib- 
tisch des Macintosh — Arbeiten mit 
dem System — Der Macintosh in- 
tern — Arbeiten mit MacPaint — Ar- 
beiten mit dem Textprogramm 
MacWrite — Programmieren in Mi- 
crosoft-BASIC — Software für den 
Macintosh — Anhang 
Bemerkungen 

Eine klar und systematisch ge- 
schriebene Einführung in den Um- 
gang mit dem Macintosh, die zu- 
gleich eine Kurzeinführung in MS- 
BASIC, Version 1.0, enthält. Dr. 
Hesselmann ist übrigens Lektor im 
Sybex-Verlag. 


Das große BASIC-Lernbuch 
BASIC lernen, verstehen, anwen- 
den auf dem Personalcomputer 
von W. Meyer und K. Schacht 
1985, 489 S., kart., DM 36, -- 

Carl Hanser Verlag, München 
Gliederung 

Einführung in die Programmierung 
— Sprachelemente von BASIC - 
BASIC-Befehlsvorrat — Logische 
Operatoren — Großer BASIC-Test 
mit EDV-Auswertung — Program- 
mierung allgemeiner und techni- 
scher Problemstellungen — Gestal- 
tung der Ausgabe — Zeichenket- 
tenverarbeitung — Unterprogram- 
me — Programmierung komplexer 
Problemstellungen — Anhang 
Bemerkungen 

Eine von Studienräten für den 
Schulunterricht geschriebene, sehr 
umfangreiche, zweispaltig im Quer- 
format gesetzte und mit zahlreichen 
Flußdiagrammen versehene Einfüh- 
rung in Minimal-BASIC. In Anbe- 
tracht des Umfangs und der Satz- 
qualität eines der preiswerlesten 
Computer-Bücher überhaupt! 


Now That You Know Apple As- 
sembly Language: What Can 
You Do With It? 

von Jules H. Gilder 

1985, 186 S., kart., $15,-- 
DataCraft, New York 

In Deutschland Auslieferung über 
Hofacker-Verlag 

Gliederung 

Getting information out of your 
computer — Getting information in- 
to your computer — Stealing control 
of the output — Stealing control of 
the input — Using sound in your 
programs — Learning to use the 
ampersand — Expanding Applesoft 
Basic — ASCII Code — Applesoft 
token list — Shift key modification 
instructions — Adapting programs 
to work with ProDOS 
Bemerkungen 

Dieses englische Buch wendet 
sich an „fortgeschrittene Anfän- 
ger“, die sich bereits mit den 
Grundlagen der 6502-Program- 
mierung befaßt haben und nun- 
mehr nützliche, aber noch relativ 
leichtverständliche Anwendungs- 
programme suchen. 


Spielprogramme 

für den Apple Ile 

Spiele sowie Anleitungen, Techni- 
ken und Unterprogramme für die 
Eigenentwicklung von Spielen 

von Howard Franklin, Joanne Kolt- 
now und LeRoy Finkel 

1984, 124 S., kart., DM 
Vieweg-Verlag, Wiesbaden 
Gliederung 

Melodien und Klangeffekte — Die 
niederauflösende Grafik — Bilder in 
Lores-Grafik — Hochauflösende 
Grafik -— Programme zur Datenein- 
gabe - Wortspiele - Weitere Spiele 
— Renumber/Merge-Hilfspro- 
gramm — Randbemerkungen zum 
Programmieren der Spiele — Hin- 
weise zu den Programmlistings — 
Das Entwickeln von Programmen 
Bemerkungen 

Dieses Buch enthält zahlreiche 
Applesoft-Module für die Entwick- 
lung einfacher Spielprogramme. 


BASIC-Wegweiser für den Apple Il 
Datenverarbeitung mit Applesoft- 
BASIC für Apple Il/lle und kompa- 
tiple Mikrocomputer 

von Ekkehard Kaier 

1984, 194 S., kart., DM 32,- 
Vieweg-Verlag, Braunschweig 
Gliederung 

Computer allgemein — Arbeitswei- 
se des Apple Ile und Apple It — 
Programmierung in Applesoft- 
Basic 

Bemerkungen 

Dieses Buch ist eine Einführung in 
Applesoft-BASIC unter besonde- 
rer Berücksichtigung der unter- 
rfichtlichen Belange von kaufmän- 
nischen Berufsschulen und Wirt- 
schaftsgymnasien. 


6/7 


Programme in Microsoft-BASIC 
Band 1: Mathematik 

Ferlige Programme, Anregungen 
und Erläuterungen in BASIC 

von D. Herrmann und G. Schnell- 
hardt 

1985, 190 S., geb., DM 

IWT Verlag, Vatterstetten 
Gliederung 
Mehr-Register-Aritnmetik — Zahl- 
entheorie -— Kombinatorik — Alge- 
bra - Geometrie — Numerische 
Mathematik — Anhang 
Bemerkungen 

Dieses Buch ist inhaltlich weitge- 
hend identisch mit dem bereits im 
Peeker 10/85, S. 67 besproche- 
nen Titel „Mathematik auf dem Ap- 
ple II“ mit dem Unterschied, daß 
die Programme in dem vorliegen- 
den Werk in MBASIC geschrieben 
wurden. 


Apple Grafik 

Anwenderhandbuch 

von Harold J. Baily und J. Edward 
Kerlin 

1985, 448 S., kart., DM 68, -- 

Carl Hanser Verlag, München 
Gliederung 

Niedrig auflösende Grafik — Hoch 
auflösende Grafik - Grafik für Fort- 
geschrittene — Zweidimensionale 
Grafik — Dreidimensionale Grafik — 
Anhang 

Bemerkungen 

Eine umfangreiche Einführung in 
die Lores- und Hires-Grafik für Ap- 
plesoft-Programmierer mit zahlrei- 
chen Übungsaufgaben, die sich für 
den Schulunterricht eignen. 


Apple II-DOS 3.3-Assembler- 
Listing 

von Franz Engels 

1985, 108 S., kart., DM 59,- 
Röckrath Mikrocomputer, Aachen 
Gliederung 

DOS Assembler Listing — XREF Li- 
sting — DOS-Änderung/Lesefehle- 
rerzähler - DOS-Tip/Turnkey - Init 
ohne DOS - Noch ein zusätzliches 
Programm 

Bemerkungen 

Dieses mit dem Matrixdrucker in 
Großbuchstaben gesetzte Bänd- 
chen enthält den in englischer 
Sprache kommentierten Quellcode 
des Original-DOS-3.3. Der Autor 
entschuldigt sich im Vorwort, das 
bezeichnenderweise in deutscher 
Sprache geschrieben ist, daß er 
sich des Englischen bedienen 
mußte, um „schauderhaftes Kau- 
derwelsch" in Deutsch zu vermei- 
den. Dazu hätte er allerdings erst 
einmal Englisch lernen müssen! 
Einige Stilblüten: „Several appen- 
dages later added“ (S. 59); „If 
startmarker found fall through“ (S. 
67); „Save it around loading RAM- 
Applesoft“ (S. 21). Daß manche 
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Autoren die deutsche Sprache 
meiden, ist schon betrüblich ge- 
nug. Aber daß sie uns dann Pidgin- 
Englisch vorsetzen, ist wohl der 
Gipfel. 


Apple-Works 

von V. Botta, Chr. Lange, K. Zim- 
mermann 1985, 2 Bände je 264 S., 
kart, je DM 49,- Te-Wi Verlag, 
München 

Mit dem Programm Appleworks ist 
es möglich, auf dem Apple lle/c 
Textverarbeitung, Datenbank und 
Tabellenkalkulation in einem einzi- 
gen benutzerfreundlichen Paket 
anzuwenden, das für alle kleinen 
und mittleren Anwendungen aus- 
reicht. Es war klar, daß bald Bücher 
über Appleworks erscheinen wür- 
den, obschon die Firma Apple ein 
brauchbares Handbuch und 
Übungsdisketten zu Appleworks 
mitliefert. 

Die drei Autoren des Te-Wi-Ver- 
lags zeichnen noch einmal aus- 
führlich das Original-Handbuch 
nach, wobei durch die Neuformu- 
lierung des Textes an der einen 
oder anderen Stelle zusätzliche In- 
formationen überkommen. Das gilt 
besonders bei der Druckersteue- 
rung, die mit ausführlichen Bei- 
spielen erklärt wird. Auf fast jeder 
Seite wird der Text durch eine Ab- 
bildung oder einen Bildschirmaus- 
druck unterstützt, so daß hier wirk- 
lich ein anschauliches Werk ent- 
standen ist, in dem man Dank des 
Stichwortverzeichnisses auch 
schnell etwas findet. Die beiden 
Bände werden wegen der vollstän- 
digen Befehls- und Installationsbe- 
schreibung sicher auch viele 
Freunde bei den Besitzern zwie- 
lichtiger Kopien finden. 

Zu allen Bereichen von Apple- 
works sind Anwenderbeispiele 
aufgeführt, die aber stets recht 
kurz ausfallen. Sie reichen aber 
aus, um eine Idee von der Lei- 
stungsfähigkeit des Programms zu 
erhalten und um z. B. schwierigere 
Programmierungen im Rechenblatt 
zu verstehen. 

Zusammen haben beide Bände 
528 Seiten dicken Papiers. Ganze 
121 Seiten des 1. Bandes tauchen 
Wort für Wort identisch im 2. Band 
noch einmal auf. Weitere 56 Seiten 
behandeln die Datenfernübertra- 
gung mit Access Il, das nicht zum 
Lieferumfang vom Appleworks ge- 
hört, sondern für über 250 DM se- 
parat bezogen werden muß. Was 
im Band 2 an direkter Information 
über Appleworks bleibt, sind 61 
Seiten über die Textverarbeitung 
und 8 Seiten über Dateiumwand- 
lungen. Alles andere ist entweder 
doppelt, gehört zu dem Programm 
Access || oder betrifft das Inhalts- 
verzeichnis. Nichts ist perfekt. 


Peeker-Sammeldisk #17 


(Kombinierte DOS-3.3- und Pro- 
DOS-Diskette; Heft 5/1986; Ein- 
zelpreis DM 28,-,; Fortsetzungs- 
preis DM 20,-) 

Achtung! Solange Diskette 
schreibgeschützt bleibt, kann sie 
unter DOS und ProDOS benutzt 
werden. 

(1) = Zweck; (2) = Heit/Seiten- 
zahl; (3) = Gerätekonfiguration; 


| (4) = Betriebssystem; (5) = Pro- 


grammstart; (6) = Sonstiges 


ProDOS-Teil 

Warnung: Solange Dummy- oder 
Füller-Datei ED.FRAME.TXT.O 
nicht überschrieben wird, bleiben 
DOS-3.3-Dateien auf den Spuren 
17-34 erhalten. Daher vor Assem- 
blierung von ED.FRAME.TXT Disk 
+17 kopieren. 

ED.FRAME.TXT * 
ED.DISKIO.TXT & 
ED.FUNCSI.TXT & 
ED.FUNCS2.TXT & 
ED.CMDS.TXT x 

ED.CMDS.ADD * 


| ED.FUNCS1.TXT1 


ED.FUNCS2.TXT1 
ED.FUNGS2.IXTZ2 
ED.CMDS.TXT1 

ED.CMDS.TXT2 

ED.CMDS.TXT3 
ED.FRAME.TXT.O (später EDIT) 
(1) Disketteneditor für ProDOS; (2) 
Erster Teil in Heft 5/86, S. 8; es 
folgen noch zwei weitere Teile in 
den nachfolgenden Peeker-Aus- 
gaben; (3) Apple Il+/e/c; (4) Pro- 
BOS 1.04. 102. 1.11.2705). 0D- 
jektcode EDIT ist aus Platzgründen 
auf Disk #18 enthalten. Wenn Sie 
jetzt schon mit dem Editor arbeiten 
wollen, müssen Sie den ProDOS- 
EDASM-Assembler besitzen und 
wie folgt verfahren: EDASM von 
Drive 1 laden und Kopie der Disk 


| #17 in Drive 2 einlegen, dann Be- 


fehl ASM/PEEKER.DISKI7/ED- 
‚FRAME.TXT eingeben. Assem- 
blierung erfolgt vollautomatisch 
und erzeugt ED.FRAME.TXT.O, 
das den kompletten Objektcode 
darstellt und in EDIT umbenannt 


| werden kann. Später unter Pro- 
DOS (niemals unter DOS 3.3!) 


starten mit BRUN EDIT. (6) 1- 
Drive-Besitzer kopieren die mit * 
markierten Quelltexte auf ihre 
EDASM-Arbeitsdiskette und as- 
semblieren dann mit ASW/ED- 
‚FRAME.TXT. Die ohne «, aber 
mit Suftbe.,. 1%. .2- oder „over 
sehenen Zwischendateien bezie- 


| hen sie sich die 3 Teile der Edit- 


Aufsatzes. 


Hüthig 


DOS-3.3-Teil 


WM86,PAS 
VORSPANN.PAS 
ENTSCHEI.PAS 


(1) Simulation der Fußball-Welt- 


meisterschaft 1986; (2) Heft 5/86, | 


S.6; (3) Apple II+/e/c mit CP/M- 
und 80-Z/Z-Karte; (4) CP/M 2.23 
oder 2.26, d.h. mit mindestens 
60K; Turbo-Pascal 3.0; (5) DOS- 
3.3-Dateien mit APDOS auf Ihre 
Turbo-Arbeitsdiskette konvertieren 
und compilieren. Wegen der 
Dateinamen-Änderung siehe Heft, 


PRINT.ASS.TEXT 
FASTPRINT.TEXT 
DEMOPRINT.TEXT 


(1) Schnelle Bildschirmausgabe in 
Apple-Pascal; (2) Heft 5/86, S. 29; 
(3) Apple Ile mit 80 Z/Z oder IlIc 
(nicht 1141); (4) Pascal 1.1 oder 
22 (6). DOS 3.3. Textiles mil 
GETDOS von Sammeldisk 315 
auf Ihre Pascal-Arbeitsdiskette 
konvertieren. Zur Assemblierung 
und Einbindung in Library siehe 
Heft, 


ÜSTCODEF.IEXT 

LEVELO.TEXT 

ASSEM.TEXT 

(1) Analyse der Struktur von Ap- 
ple-Pascal-Files; (2) Heft 5/86, S. 
34; (3) Apple Il+/e/c; (4) Pascal 


1.1 oder 1.2; (5) DOS-3.3-Textfiles | 


mit GETDOS von Sammeldisk 


+15 auf Ihre Pascal-Arbeitsdisket- | 


te konvertieren. Zur Assemblie- 
rung und Anwendung siehe Heft. 


PI.START 

1.2 

PI 

(1) Berechnung der Zahl Pi (bis ca. 
15.000 Stellen); (2) Heft 5/86, S. 
42; (3) Apple Il+/e/c; (4) DOS 3.3; 
(5) RUN PI:START, dann ge- 
wünschte Stellenanzahl eingeben. 


PATCH.STARTER 


SQ.PATCHER 
(1) Modifikation des Kopierpro- 
gramm „Superquick“ für 160- 


Spur-Erphi-Laufwerke für diejeni- 
gen, die „Superquick" vor dem 
1.3.86 bestellt haben; (2) Heft 5/ 
86, S. 59; (5) Näheres siehe Heft, 


MDB.KOPY 
Backup-Programm für DOS 3.3 für 
Megaboard-Festplatte: Befindet 
sich mit einem weiteren Backup- 
Programm für ProDOS auf Sam- 
meldisk #18. 


Software Service 
Postfach 102869 Heidelberg 


Peeker 5/86 


Dieter Geiß beantwortet 
UCSD-Pascal-Leserbriefe 


Hinweis: Bitte beachten Sie, daß 
wir wegen der Fülle der Zuschrif- 
ten nur einen kleinen Teil der Le- 
serbriefe beantworten können. Ih- 
re Briefe sollten sich auf die Auf- 
sätze beziehen und nicht „globaler 
Natur“ sein. Fragen in der Art „Wie 
kann ich Quickfile decompilieren?” 
(s.u.) sind bei nüchterner Betrach- 
tung schlechthin eine Zumutung, 
denn dies würde Monate dauern. 
Schließlich müssen wir einem 
Spezialisten wie Dieter Geiß für die 
Beantwortung der Zuschriften ein 
Honorar zahlen. U.Stiehl 


SYSTEM.SYNTAX 
eingedeutscht 

Für die Schule habe ich versucht, 
die Fehlermeldungen im UCSD- 
Pascal ins Deutsche zu überset- 
zen. Dazu habe ich den File SY- 
STEM.SYNTAX von Apple-Pascal 
1.1 vom Filer aus mit C)hange in 
einen Textfille umgewandelt und 
die Fehlermeldungen im Editor zei- 
lenweise ins Deutsche übersetzt. 
Anschließend habe ich den geän- 
derten File wieder zu SYSTEM- 
‚SYNTAX umbenannt. Leider er- 
scheinen jetzt nicht mehr alle Feh- 
lermeldungen in der Kopfzeile des 
Editors, sondern nur noch ihre 
Nummern. SYSTEM.SYNTAX ist 
laut Filer im Original ein File vom 
Typ .Data, während das geänderte 
SYSTEM.SYNTAX ein File vom 
Typ .Text ist. Meine ersten groben 
Nachforschungen am Original-SY- 
STEM.SYNAX ergaben allerdings, 
daß er zwar dem Namen nach vom 
Typ .Data ist, jedoch sieht der An- 
fang sehr nach dem typischen Be- 
ginn eines Textfiles aus. Könnten 
Sie mir bitte mitteilen, wie ich bei 
der Übersetzung von SYSTEM- 
‚SYNTAX vorgehen muß, damit al- 
le Fehlermeldungen in der Kopf- 
zeile erscheinen? 

Wolfgang Kurz, Melle 


Antwort: 

Wie Sie richtig erkannt haben, ist 
der File SYSTEM.SYNTAX in der 
Tat ein Textfile, auch wenn er als 
Data-File auf dem Directory ausge- 
wiesen ist. Nach Umbenennung, 
die aber nicht unbedingt notwendig 
ist, kann der File mit Hilfe des Edi- 
tors geändert werden, also z.B. ins 
Deutsche übersetzt werden. Das 
Problem, daß der Editor dann nicht 
mehr alle Fehlermeldungen im File 
SYSTEM.SYNTAX korrekt findet, 
ist weniger auf den geänderten File 
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zurückzuführen, sondern vielmehr 
auf die wirklich ungewöhnlich 
(schlechte) Weise, wie der Editor 
versucht, aus der Fehlernummer 
auf den Fehlertext zu schließen. 
Wie bewerkstelligt der Editor dies? 
Um das herauszufinden, muß man 
sich einen Teil des Editors (das 
Segment PUTSYNTAX) mit einem 
P-Code-Disassembler ansehen 
und zurückübersetzen. Dann er- 
kennt man, daß der Editor feste 
Konstanten In seinem Code einge- 
baut hat. Diese Konstanten geben 
an, welche Fehler sich in welchen 
Blöcken von SYSTEM.SYNTAX 
befinden. Ändern sich die Längen 
der einzelnen Zeilen durch Über- 
setzung in eine andere Sprache, 
so erkennt der Editor nicht mehr, in 
welchen Blöcken sich welche Feh- 
lermeldungen befinden. Folgende 
Voraussetzungen müssen erfüllt 
sein, damit der Editor alle Fehler- 
meldungen findet. Dabei gilt als 
Fileanfang von SYSTEM.SYNTAX 
der relative Block. 


Pascal 1.1: Alle Fehler, für die gilt 
Fehlernummer <= 104, müssen in 
den Blöcken 2 und 3 zu finden 
sein, alle Fehler mit Nummer <= 
126 in den Blöcken 4 und 5, mit 
Nummer <= 151 in den Blöcken 6 
und 7, mit Nummer <= 185 in den 
Blöcken 8 und 9, mit Nummer <= 
302 in den Blöcken 10 und 11, alle 
anderen Fehler in den Blöcken 12 
Und1o. 

Pascal 1.2: Fehler <= 108 in den 
Böcken 2 und 3, Fehler <= 136 in 
den Blöcken 4 und 5, Fehler <= 
169 in den Blöcken 6 und 7, Fehler 
<= 301 in den Blöcken 8 und 9, 
alle anderen Fehler in den Blöcken 
10 und 11. Man beachte, daß bei 
Version 1.2 der File SYSTEM.SYN- 
TAX nur 12 Blöcke lang ist, 


Ein weiteres Problem ist das Vor- 
handensein der DLE-Codes in 
Textfiles. Sie dürfen im SYSTEM- 
SYNTAX nicht vorhanden sein. 

Es gibt nun grundsätzlich drei 
Möglichkeiten, diesem Dilemma zu 
entgehen: 

1. Man wählt die Übersetzung so 
geschickt, daß die oben angege- 
ben Bedingungen für die Fehler 
erhalten bleiben. Nach der Über- 
setzung dürfen sich keine DLE- 
Codes mehr im Textfile befinden. 
2. Man benutzt einen Editor, der 
keinen solchen unflexiblen Algo- 
rithmus verwendet, wie z.B. den 
ASE (Advanced System Editor), 
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welcher immer alle Fehlermeldun- 
gen erkennt, egal in welchen BIÖk- 
ken sie sich befinden und ob ihnen 
ein DLE vorausgeht. 

3. Man pateht den SYSTEM.EDI- 
TOR an den Stellen, wo die Kon- 
stanten für die Fehlermeldungen 
stehen (wenn man weiß, wo das 
ist). Außerdem dürfen sich keine 
DLEs im SYSTEM.SYNTAX be- 
finden. 

Die erste Möglichkeit scheitert 
eventuell daran, daß die Fehler- 
meldungen in anderen Sprachen 
als dem Englischen zu lang oder 
zu kurz werden, die zweite daran, 
daß kein solcher Editor zur Verfü- 
gung steht. Die dritte Möglichkeit 
müßte sehr ausführlich erklärt wer- 
den, dabei gibt es einige P-Code- 
spezifische Dinge zu beachten, bei 
denen ich Ihnen nicht zumuten 
möchte, sie zu verstehen. Aber ich 
mache Ihnen folgenden Vorschlag: 
Sie senden der Redaktion eine 
Diskette mit Ihrem geänderten SY- 
STEM.SYNTAX und — aus urhe- 
berrechtlichen Gründen — auch 
den SYSTEM.EDITOR von Pascal 
1.1, 1.2 oder beide. Ich entferne 
durch ein Hilfsprogramm die über- 
flüssigen DLE-Codes aus dem File 
SYSTEM.SYNTAX und patche den 
Editor so, daß er Ihren File ord- 
nungsgemäß erkennt. 





SCREENBIT-Funktion 

Beim Versuch, mit Hilfe der 
UCSD-Funktion SCREENBIT eine 
Hardcopy zu erstellen, ergaben 
sich unerwartete Schwierigkeiten: 
War bei der Ausgabe an einen Ep- 
son FX-100 im Byte nur das Bit 
214 gesetzt (das unterste auf der 
Spalte habe den Wert 210), so 
begann der Drucker „durchzudre- 
hen“. Wird im Ausgabewort ir- 
gendein anderes Bit zusätzlich ge- 
setzt, gibt es einen korrekten 
Druck. 

Die Hexdarstellung des Datenstro- 
mes zum Drucker zeigt für den 
kritischen Fall zusätzliche Leerzei- 
chen (=$20), die mit einiger Si- 
cherheit nicht auf das Druckerin- 
terface oder den Drucker zurück- 
zuführen sind. Mein Verdacht rich- 
tet sich auf das Pascal-System: Ei- 
ne Codeprozedur zum Pascalpro- 
gramm, die die Grafikseite aus- 
druckt, lieferte das erwartete Er- 
gebnis. 

Zum Test der Ausgabe wurde ein 
Programm geschrieben, das bei ei- 
nem Eingabewert von 16 den Feh- 
ler zuverlässig reproduziert. Ver- 
wendete Hardware: Ile, FX-100 mit 
Epson 8132W Druckerinterface. 


Sollten Sie eine Lösung des Pro- 
blems kennen und außerdem der 
Meinung sein, auch andere An- 
wender könnten daran interessiert 
sein, dann bitte ich um eine Ant- 
wort im Peeker. 

Ludwig Kellner, Karlsruhe 


Antwort: 

Das Problem liegt darin, daß die 
Zahl 16 (ASCII DLE) eine Sonder- 
stellung bei Texifiles einnimmt. Sie 
wird benutzt, um die Files kompri- 
miert abzuspeichern, wenn es füh- 
rende Leerzeichen in einer Zeile 
gibt (vgl. Apple Pascal Operating 
System Reference Manual, S, 
266). Wird nun bei der Ausgabe 
ein DLE-Zeichen geschickt, so 
wird das nachfolgende Zeichen als 
Anzahl der Leerzeichen interpre- 
tiert, nachdem von diesem die Zahl 
32 subtrahiert wurde. Eine Folde 
von 16, 38 entspricht also 6 Leer- 
zeichen. Das Umwandeln der 
DLE-Codes kann aber verhindert 
werden, wenn man statt mit WRITE 
mit UNITWRITE arbeitet (vgl. 
Peeker 2/86, S. 54, Listing 2). In 
Ihrem Testprogramm müßten Sie 
das 

WRITE(DR, CHR(X)) 

durch ein 

UNITWRITE(6, %, 1, 0, 60) 
ersetzen, damit Ihr Programm läuft. 
Für eine schnelle und in vielen For- 
maten mögliche Hardcopy möchte 
ich auf die Pascal-Version von SU- 
PERDUMP verweisen, die in Vor- 
bereitung ist und im Peeker veröf- 
fentlicht werden wird, 





Gemini-Grafik-Ausdruck 
Zunächst einmal darf ich Ihnen 
versichern, daB das Lob für Ihre 
Zeitschrift aus zahlreichen Leser- 
briefen auch durch mich nicht ab- 
reißen soll, Auch ich kann mir kei- 
ne wertvollere Literatur zur Pro- 
grammierung des Apple II vor- 
stellen. 

Der Artikel über Assembler-Ein/ 
Ausgage in Peeker, Heft 2, S. 47 
hat ein Problem in meiner Pro- 
grammierung aufgeworfen, bei 
dessen Lösung Sie mir hoffentlich 
helfen können: An meinem Il+ ha- 
be ich über eine parallele Schnitt- 
stelle einen Drucker vom Typ Ge- 
mini 10x angeschlossen. Unter 
DOS und im Apple Monitor habe 
ich die Möglichkeit, nach PR#1 
(Printer Karte in Slot 1) die HGR- 
Seiten mit CTRL-Q auf dem Druk- 
ker ausgeben zu lassen. Dabei 
kann ich die Form des Ausdrucks 
durch einen Poke auf 1912 + 
Slotnr. variieren, Diese Möglichkeit 
wird von der Karte eröffnet. Unter 
UCSD-Pascal habe ich bisher kein 
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Glück gehabt, diesen Befehl zu 
übergeben. Versuche mit 
BLOCKWRITE und UNWRITE sind 
gescheitert, und auch die in Ihrem 
Artikel beschriebene Assem- 
blerroutine brachte keinen Erfolg. 
Wahrscheinich wird vom Pascal- 
Druckertreiber das CTRL-Q umin- 
terpretiert oder abgefangen. 
Bisher lese ich also die HGR-Seite 
Bit für Bit aus und schicke die ent- 
sprechenden Bytes an den Druk- 
ker (es gibt Druckbefehle, mit de- 
nen ich einzelne Nadeln anspre- 
chen kann). Das dauert allerdings 
ziemlich lange. 

Detlef Zieleznik, Ratingen 


Antwort: 

Der Gemini 10x ist meines Wis- 
sens Epson-kompatibel. Um die 
Grafik von Pascal aus auf den 
Drucker zu bringen, benutzt man 
am besten ein schnelles Maschi- 
nenprogramm, wie es von SUPER- 
DUMP (Pascal) zur Verfügung ge- 
stellt wird (s. 0.). SUPERDUMP 
läuft unter anderem auch mit Ep- 
son-Druckern mit Parallel-Inter- 
face, so daß ich große Hoffnungen 
hege, daß es auch mit Ihrem Ge- 
mini 10x einwandfrei funktioniert. 





Quickfile decompilieren? 

Ihre Erläuterungen zum P-Code- 
Disassembler im Peeker 2/86 ver- 
anlassen mich zur Frage, ob mit 
Ihrer Hilfe ein bestehendes Pro- 
blem beseitigt werden kann. 

Ich benutze das in Pascal 1.1 ge- 
schriebene Programm „Quickfile 
Ile" zusammen mit dem Imagewri- 
ter und der Super-Serial-Card. Lei- 
der hat dieses Programm einen 
Fehler bei der Ausgabe im Listen- 
Format. Zwischen den Datenzeilen 
erscheinen immer unschöne Leer- 
zeilen — auch wenn diese kürzer 
sind als der Seiten-Kopf — und der 
Druck-Parameter für den Zeilenab- 
stand arbeitet unkorrekt. Da diese 
Leerzeilen nicht im Seiten-Kopf er- 
scheinen, liegt es wohl nicht an der 
Drucker-Konfiguration. Trotz mehr- 
facher Reklamation bei Apple in 
München kann oder will man mir 
keine fehlerfreie Disketten-Version 
zur Verfügung stellen. 

Hier drängt sich nun die Frage auf, 
ob Sie eine Möglichkeit sehen, mit 
Hilfe Ihres P-Code-Disassemblers 
ein änderbares Quell-Programm 
zu erzeugen. Ich denke hier an die 
Überlassung des Programms ge- 
gen zu vereinbarendes Entgelt 
oder aber an einen Besuch in Ih- 
rem Hause. Da ich inzwischen 
selbst über das Pascal-Betriebssy- 
stem 1.2 verfüge, kann die an- 
schließende Korrektur selbst vor- 
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genommen werden. Evil. versuche 
ich dann noch, das Programm so 
zu ändern, daß im Etiketten-Format 
mehrbahnige Aufkleber gedruckt 
werden können. 

Gerhard Bletzer, Hirschberg 


Antwort: 

Ich besitze zwar Quickfile Ile nicht, 
nehme aber an, daß ein Programm 
zu diesem Preis (279.- DM) pro- 
fessionell genug ist, daß solche 
Fehler, wie Sie sie beschreiben, 
normalerweise nicht auftreten dür- 
fen. Quickfile ist mit Sicherheit von 
den Programm-Autoren durchge- 
tetstet worden. Vielleicht ist Ihre 
Version defekt. 

Mein P-Code-Disassembler er- 
zeugt keine Quellprogramme, son- 
dern listet den P-Code mit den 
mnemotechnischen Abkürzungen 
auf und zeigt noch einige andere 
Dinge an. Quellprogramme kann 
ich nur durch mühsame Kleinarbeit 
von Hand erzeugen. Ein Pro- 
gramm, das dieses automatisch 
durchführt, ist sehr kompliziert und 
wurde zwar von mir in Angriff ge- 
nommen, aber nach 8000 Zeilen 
kann es bis jetzt „nur“ die Struktur 
und die Datentypen eines Pro- 
gramms herausfinden, wobei es 
bei geschachtelten Records mit 
Case-Varianten Schwierigkeiten 
gibt, da die Datenstrukturen ver- 
schiedene Gestalt annehmen kön- 
nen. Ich werde dieses Programm 
nicht weiter entwickeln, da mir da- 
zu einfach die Zeit fehlt. Aus dem- 
selben Grund kann ich mich nicht 
darauf einlassen, irgendwelche 
längeren Codefiles zurückzuüber- 
setzen. (Rechnen Sie mit einem 
Monat für AK). 

Ein Programm wie Ihre Quickfile- 
Version, das nicht ordnungsgemäß 
funktioniert, würde ich zurückge- 
ben. Vielleicht gibt es aber auch 
eine Option oder ein Flag, das man 
setzen kann, so daß die zusätzli- 
chen Leerzeilen im Ausdruck er- 
scheinen. In diesem Fall sollten 
Sie das Handbuch noch einmal ge- 
nau studieren. 


Diverse Fragen 

Ihre im Peeker begonnene und — 
hoffentlich — fortzusetzende Serie 
„Tips und Tricks in Pascal” bietet, 
wie Ihnen schon in zahlreichen Le- 
serbriefen bestätigt wurde, eine 
Menge Informationen, aber, was 
ich vor allem begrüße, Erklärun- 
gen. Die Teile 2, 4 und 5 möchte 
ich hier besonders hervorheben, 
die über die normalen Abhandlun- 
gen in Handbüchern oder ander- 
weitig erschienenen Veröffentlich- 


ungen hinausgehen. Die ergän- 
zenden Programmbeispiele — es 
könnten von mir aus mehr sein — 
erhellen die Hinweise, so daß die- 
se Form der Präsentation Ihrer 
Studien beizubehalten wäre. 

Zum Teil 5 -— Assembler-Ein/Aus- 
gabe in UCSD-Pascal — kamen mir 
ein oder zwei Gedanken, die ich an 
Sie mit der Bitte der Erklärung wel- 
terleiten möchte: 

1. S. 48: File of Integer benötigt 
mindestens 300 Words plus 1 für 
die Größe des Datentyps. Wieso 
passen nur 256 Integer in einen 
Block? Da jede Integer nur 1 Word 
beansprucht, berechne ich 300:1 
= 300 Integer. Was übersehe ich”? 
2, Wie und wo brauche ich die 
Unitbefehle bei der Assem- 
blerprogrammierung? 

3, Schon seit längerem benutze 
ich die Sprungadressen $FFOO 
und $FF03 in Assemblerprozedu- 
ren, aber ohne vorher das X-Regi- 
ster mit den entsprechenden Para- 
metern, 0 = read usw., zu belegen 
(Unwissenheit). Bisher traten je- 
doch keine Fehler in den Program- 
men auf. Ist das Zufall oder ist die 
Belegung des Registers nicht von 
Bedeutung? Wenn der Belegung 
Beachtung zu schenken ist, was 
bewirkt die Initalisierung? Wieso 
sind bei mir bislang keine Fehler 
aufgetaucht? 

4. Vielleicht könnten Sie an der 
einen oder anderen Stelle Ihrer Ar- 
tikel typische praktische Anwen- 
dungsbeispiele einbringen. Im Teil 
5 würde sich die Beantwortung der 
Frage aufdrängen, wozu soll ich in 
der Programmiersprache Pascal 
überhaupt Assemblerprozeduren 
schreiben? Wie lauten typische, 
charakteristische Anwendungsbei- 
spiele? Programmlistings wären 
hier natürlich auch schön und 
könnten der Erklärung und Hand- 
habung dienen. 

Soliten Sie in Ihrer Serie hierauf 
nicht mehr eingehen, so würde ich 
mich freuen, wenn Sie mir solche 
vielleicht aus Ihrer Praxis mitteilen, 
um mein bescheidenes Reservoir 
aufzufüllen (entsprechende Unko- 
sten ersetze ich natürlich). 

5. Wo liegen und was sind Screen- 
holes? (Video-80-Zeichenkarte) 
6. Themen, die mich weiterhin in- 
teressieren würden: 

i) Wie bringe ich in UCSD-Pascal 
die Graphic auf den Drucker? 

ii) Wie schreibe ich in UCSD-Pas- 
cal 1.2 einen Treiber einer 256K 
RAM-Disk? 

ii) Software-Problem: Wie pro- 
grammiere ich einen Compiler für 
eine selbstdefinierte Sprache in 
Pascal? 

Ich hoffe, ich habe Ihre Zeit nicht 
zu sehr strapaziert und Sie mit 
meinen Problemen gelangweilt; 


sehen Sie meinen Brief als Rück- 
meldung von der Basis. Froh wäre 
ich, wenn Sie auf die ein oder an- 
dere Frage eine Antwort wüßten. 
Udo Memmert, Köln 


Antworten: 

Zu Frage 1: Der File Information 
Block belegt insgesamt 300 
Words. In ihm ist auch der Puffer, 
der 512 Bytes = 256 Words be- 
legt, in welchen 256 Integer-Zah- 
len passen, Genaue Informationen 
entnehmen Sie dem Teil 6 meiner 
Serie. 

Zu Frage 2: Zum besseren Ver- 
ständnis der drei l/O-Ebenen. 

Zu Frage 3: Die Belegung des X- 
Registers ist nicht nur guter Pro- 
grammierstil, sondern gehört zu 
den Konventionen des BIOS. Als 
Beispiel wollen wir die Ausgabe an 
den Drucker betrachten. Normaler- 
weise braucht das X-Register nicht 
gesetzt zu werden, wenn man Über 
PRINTERWARITE springt. Nun ist es 
aber möglich, daß ohne das Wis- 
sen des Assemblerprogrammie- 
rers ein neuer Treiber für einen 
Drucker angeschlossen wurde 
oder einfach ein Druckerpuffer in- 
stalliert wurde, wie das z.B. bei mir 
der Fall ist. Manche Drucker-Trei- 
ber bzw. der Lader des Drucker- 
treibers ersetzt dann die 
Einsprungadressen von PRINTER- 
INIT, PRINTERREAD, PRINTER- 
WRITE und PRINTERSTÄATUS, wo- 
bei alle vier Adressen zu derselben 
Speicherzelle zeigen. Dort liegt im 
allgemeinen ein Programm, wel- 
ches zuerst das X-Register inspi- 
ziert und aufgrund seines Inhalts 
zur entsprechenden Routine für 
Read, Write, Init oder Status ver- 
zweigt. 

Wenn bei Ihnen keine Fehler auf- 
treten, weil Sie das X-Register 
nicht setzen, so liegt das einfach 
daran, daß bei Ihnen keine speziel- 
len Treiber für Bildschirm oder 
Drucker etc. angeschlossen sind, 
sonst würde Ihre Assemblerrouti- 
ne auf die Nase fallen, wenn nicht 
zufällig im X-Register der richtige 
Wert stehen würde. 

Zu Frage 4: Die Lösung von so 
manchen Problemen läßt sich oft 
nur in Assembler noch effizient 
verwirklichen. Als Paradebeispiel 
läßt sich immer wieder die Grafik 
heranziehen. Die TurtleGraphics- 
Unit besteht zu einem Großteil aus 
Assemblerprozeduren, ebenso die 
Applestuff-Unit. Versuchen Sie 
einmal, eine Linie von der linken 
unteren zur rechten oberen Ecke 
in der Hires-Grafik zu zeichnen, 
wobei Sie nur Pascal-Befehle ver- 
wenden. Messen Sie dann die Zeit 
und vergleichen Sie sie mit einer 
Befehlssequenz aus der Turtle- 
Graphics. Auch die Ausgabe von 
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Hires-Bildern auf den Drucker 
kann nur in Assembler noch eini- 
germaßen schnell vonstatten ge- 
hen. Auch die Note-Prozedur in 
der Appiestuff-Unit könnte nicht in 
Pascal geschrieben werden, sonst 
käme man über ein dumpfes 
Brummen nicht hinaus. In Teil 8 
meiner Serie werde ich eine Unit 
vorstellen, die einige Assem- 
blerprozeduren aufweist, von de- 
nen eine (Addr) in Pascal gar nicht 
zu realisieren wäre. 

Zu Frage 5: Screenholes sind 
Speicherzellen, die zwar im RAM- 
Bereich des Bildschirms liegen 
($400-$7FF), aber dennoch nicht 
benötigt werden, da der Bildschirm 
nicht 1024, sondern nur 960 Zei- 
chen darstellt. Diese Speicherzel- 
len werden durch ein Löschen des 
Bildschirms nicht berührt und die- 
nen den Zusatzkarten als sichere 
Speicherplätze für ihre Variablen. 
Welche Variablen in den Screen- 
holes untergebracht sind, hängt 
von der Karte ab, die in dem jewei- 
ligen Slot steckt. Für jeden Slot 
sind genau 8 Bytes reserviert, die 
sich in den Speicherzellen 4/78+n, 
4F8+n, 578+n, 5Fö+n, 678+n, 
6F8+n, 778+n und 7F8+n befin- 
den, wobei n die Nummer des 
Slots ist. 


Zu Frage 6: 

i) Die Antwort ist die gleiche wie 
bei zwei der oben abgedruckten 
Leserbriefe: Mit der SUPER- 
DUMP-Version für Pascal. 

ii) Die Antwort lautet: Genauso wie 
in Pascal 1.1. Und für diese Ver- 
sion wurde bereits ein Treiber im 
Peeker 6/85 vorgestellt. Eine 
256K-RAM-Karte hat selbstver- 
ständlich mehr Blöcke (512), und 
auch der Zugriff auf die Karte hängt 
von der Herstellerfirma ab. Deswe- 
gen ist die Frage nicht allgemein zu 
beantworten. In dem 0.9. Peeker- 
Heft finden Sie allerdings alle Hin- 
weise, die Sie brauchen, um einen 
RAM-Disk-Treiber zu installieren. 
iii) Die Antwort auf diese Frage ist 
wohl nicht in wenigen Sätzen zu 
behandeln. Ich bin mir auch nicht 
sicher, ob Sie nun wissen wollen, 
wie man überhaupt programmiert 
(vor allem längere Programme), 
wie man eine Sprache definiert, 
oder wie man Compiler baut. Die 
Antwort wäre vielleicht folgende: 
Sie studieren einige Semester In- 
formatik. In den ersten beiden Se- 
mestern lernen Sie, wie man Älgo- 
rithmen entwirft, sie verifiziert und 
implementiert, im dritten Semester 
hören Sie dann etwas von Erzeu- 
gung, Akzeption und syntaktischer 
Analyse formaler Sprachen, und 
mit diesem Wissen ausgerüstet 
sind Sie ab dem fünften Semester 
bereit, die Vorlesung „Übersetzer- 
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bau“ und im sechsten Semester 
„Ausgewählte Kapitel aus dem 
Übersetzerbau" zu hören. Ein 
Übersetzerbaupraktikum und ein 
Besuch der Vorlesungen „Syntax- 
analyse” und „Semantik“ wären 
natürlich ebenfalls von Vorteil. Falls 
Sie das nicht wollen, so sollten Sie 
sich zumindest ein erstaunlich 
dünnes Büchlein von Nikolaus 
Wirth, dem Erfinder von Pascal und 
Modula zulegen, das den Namen 
„Compilerbau“ trägt. Dort sind die 
wichtigsten Dinge zu finden, wie 
Definieren einer Sprache mit Hilfe 
der Backus-Naur-Form, Parser, 
Syntaxanalyse und sogar Codeer- 
zeugung. 

Ich hoffe, auf Ihre Fragen ausrei- 
chende Antwort gegeben zu 
haben. 


Fotofiles 

Ich bitte um Information, ob mit 
Hilfe von Apple-Business-Gra- 
phics erstellte Fotofiles vom Turt- 
leGraphics-Library-Paket geladen 
und auf dem Imagewriter ausge- 
druckt werden können (auf Apple 
IC) 

Dieter Hinderberger, Salach 


Antwort: 

Das Programm Apple Business- 
Graphics kenne ich nicht, so daß 
ich nicht weiß, welches Format die 
dort abgespeicherten Fotofiles ha- 
ben. Da ich aber annehme, daß es 
sich um reine Bit-Images der Hi- 
res-Page handelt, müßte es sich 
mit der neuen TurtleGraphics 
durch einen Aufruf von LoadHires 
laden lassen. Um die Anhängung 
des Suffix „.GRAF“ zu verhindern, 
hängen Sie bitte an den Namen 
des zu ladenden Files einen Punkt 
an, Zum Ausdrucken der Hires- 
Page benutzen Sie bitte die Pas- 
cal-Version von SUPERDUMP, die 
im Peeker erscheinen wird. 





Kommunikationsprogramm 

In der Textverarbeitung, die ich mit 
Hilfe meines Apple Ilc betreibe, ar- 
beite ich in der Regel so, daß ich 
unterwegs Texte in meinen „hand- 
held"-electronic-printer eingebe 
und zu Hause über das Kommuni- 
kationsprogramm Access || von 
dessen Speicher auf Diskette (des 
Apple) überspiele. Da ich zur Wei- 
terverarbeitung ein Pascal-Pro- 
gramm benutze (TED| von ADI- 
MENS), weil es entsprechend gute 
Programme in ProDOS noch nicht 
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gibt, besteht nun die Notwendig- 
keit, die unter ProDOS gespei- 
cherte ASCII-Textdatei in eine 
Pascal-Datei umzuwandeln, was 
ich dank des Peeker-Wettbewerbs 
nun problemlos kann. 

Für den Ausdruck der fertig bear- 
beiteten Textdatei kann ich leider 
nicht das Pascal-Programm benut- 
zen (dort fehlt die Möglichkeit, Ein- 
zelblaitstopps automatisch einzu- 
fügen), sondern muß das Ganze 
wieder zurücktransferieren, um 
dann mit Appleworks unter Pro- 
DOS auszudrucken. Eine aufwen- 
dige Sache... 

Zur Vereinfachung gäbe es m.E. 
nun zwei Möglichkeiten: 

a) Die Überspielung von Handheld 
müßte schon unter Pascal erfol- 
gen, so daß wenigstens eine 
Transferierung entfiele. Meine ei- 
genen Versuche, (als Anfänger) 
ein  Pascal-Kommunikationspro- 
gramm zu schreiben, scheiterten 
an der Äbspeicherungsmöglichkeit 
der über REMIN problemlos emp- 
fangenen Daten unter einer be- 
stimmten Datei auf Diskette. Ich 
suche deshalb jetzt ein schon be- 
stehendes Pascal-Programm für 
diesen Zweck. 

b) Die Verwendung von Kyan-Pas- 
cal würde mir die Möglichkeit ge- 
ben (?), auf ProDOS-Dateien auch 
unter Pascal zuzugreifen. Voraus- 
setzung dafür wäre aber, daß mein 
(Pascal 1.2)-Textprogramm auch 
unter Kyan-Pascal laufen könnte. 
Dies ist nach Auskunft von Herrn 
Stiehl nicht der Fall, da ich von 
diesem Programm selbstverständ- 
lich keine Source-Files besitze, die 
neu compiliert werden könnten. 
Meine Frage: Werden Sie aufgrund 
Ihrer Fähigkeit, beliebige Codefiles 
zurückzuübersetzen, ein enispre- 
chendes Programm  veröffentli- 
chen, das dies tun kann, oder wä- 
ren Sie gaf. in meinem Einzelfall 
bereit, dies für mich zu tun, wenn 


ich dann bei den Textfiles im Pro- 
DOS-Format bleiben kann? 
Simon Dach, Blaubeuren 


Antwort: 

Ein bestehendes Pascal-Kommu- 
nikationsprogramm besitze ich lei- 
der nicht, so daß ich Ihnen hier 
keine Empfehlung geben kann. 
Wenn Sie allerdings schon Daten 
über REMIN problemlos emp- 
fangen, so speichern Sie diese 
doch in einen großen Array, sagen 
wir mal mit dem Namen A, und 
speichern ihn dann folgenderma- 
Ben auf Diskette ab: 


varkEı ıle; 

begin 

rewrite (F, 'TESTFILE'); 
if blockwrite (F, A, Blks) 
<> Blks 

then exit (program); 
close (F, lock) 

end; 


Dabei enthält Blks die Anzahl der 
abzuspeichernden Blöcke, die die 
Anzahl der abzuspeichernden 
Bytes div 512 ist, und falls Bytes 
mod 512 nicht Null ist, muß noch 
ein Block dazuaddiert werden. 

Das Zurückübersetzen des Pascal 
1.2-Textprogrammes wäre ein Auf- 
wand, dem ich mich nicht unterzie- 
hen möchte, weil er Monate oder 
gar Jahre dauern würde (je nach 
Größe des TEDI). Ein Programm, 
welches dies automatisch macht, 
ist sehr kompliziert und würde eine 
Länge von 10000 bis 20000 Zeilen 
Pascal haben (s. auch Antwort zum 
Leserbrief von Gerhard Bletzer). 
Außerdem würde es in Ihrem Fall 
keine Abhilfe schaffen, weil 
UCSD-Pascal Textfiles nicht mit 
dem Kyan-Pascal Compiler compi- 
liert werden können, wenn darin 
Befehle vorkommen, die es in Ky- 
an-Pascal nicht gibt. Gehen Sie 
davon aus, daß im TED| tausende 
solcher Befehle vorkommen, 





Brief von Edgar Fuss in 10/85 

Die Richtigstellung der Abfrage für 
die Gültigkeit eines Pascal-Direc- 
tory in meinem CopyDupDir-Pro- 
gramm ist nicht korrekt. Wenn man 
einmal von der fehlenden Klammer 
vor „dFKind“ absieht, hat Herr 
Fuss wohl nicht beachtet, daß das 
CopyDupDir-Programm (s.Heft 1/ 
85) kein System-, sondern ein 
Userprogramm ist. Das bedeutet, 
daß es keinen Zugriff auf eine Va- 
riable MiscInfo.UserKind geben 
kann; diese Variable existiert im 
Pascalsystem (äußerste Ebene). 
Insofern würde eine Abfrage, wie 
sie Herr Fuss vorschlägt, in mei- 


nem Programm beim Übersetzen 
lediglich einen Syntaxfehler 104 
(Undeclared Identifier) hervorru- 
fen, da Miselnfo nirgends definiert 
wird. Auch das Einlesen des Files 
SYSTEM.MISCINFO würde nichts 
bringen, da der UserKind geändert 
worden sein könnte. Außerdem 
soll mein Programm ein Directory 
reparieren. Dabei spielt es keine 
Rolle, in welchem UserkKind man 
sich befindet. Im übrigen ist es, wie 
in meinem Artikel dargelegt, prak- 
tisch unmöglich, einen anderen 
UserKind einzustellen, so daß eine 
Abfrage wie in meinem Programm 
durchaus genügt. 
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Diverse Leseranfragen 


PAL-Karte 

Der Apple Ile bietet eine eingebau- 
te PAL-Karte. An den Übergängen 
zweier Farben flimmern die Far- 
ben. Gibt es eine Möglichkeit, die- 
sen Effekt auszuschalten? Dieser 
Effekt tritt sowohl bei einem Fern- 
seher als auch bei einem Farbmo- 
nitor auf. 

Martin Dobbert, Berlin 

Antwort: Beachten Sie bitte den 
technischen Erfahrungsbericht zu 
einer PAL-Karte im Heft 6/86. us 





Siemens-PT88-Drucker 

Gibt es den „Superdump" (Peeker 
6/85, S. 22) auch für den Siemens 
Drucker PT88, bzw. wer kann mir 
evtl, weiterhelfen? 

Dieter Jörg, Gerlingen 

Antwort: Zumindest in der Apple- 
Gemeinde scheint den PT88 kei- 
ner zu benutzen. Oder doch? us 





LOAD 

Ich suche ein Maschinenpro- 
gramm, welches den LOAD-Befehl 
als RUN-Befehl ausführt (Apple 
Ilc). 

Horst Figgener, Kamen-Methler 
Antwort: LOAD/RUN sind sowohl 
Applesoft-Interpreter-- als auch 
DOS/ProDOS-Befehle. Im erste- 
ren Fall müßte man das Interpre- 
ter-ROM ändern, was Sie wahr- 
scheinlich nicht wollen. Im letzie- 
ren Fall müßte man die Befenhls- 
worttabelle im RAM ändern. Für 
DOS 3.3 gibt es z.B. das Pro- 
gramm DOS-BOS, mit dessen Hil- 
fe diese Modifikation menügesiteu- 
ert vorgenommen werden kann. 
Die 48K-DOS-3.3-Befehlsnamen 
befinden sich ab $A884 im RAM. 
Im übrigen führt nach POKE 214, 
128 jeder Direktbefeh! zum 
Zwangs-RUN (gilt für Applesoft 
und DOS 3.3 gleichermaßen). us 
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Apple-li-Nachfolger 

In Peeker 2/86 schlägt Stefan Nie- 
dergesäs einen Ideenwetibewerb 
für den neuen Apple Ile-Nachfol- 
ger vor, worin Peeker-Leser Vor- 
schläge machen sollten, wie der 
Nachfolger, basierend auf einem 
16-Bit-Prozessor (wahrscheinlich 
dem 65816), ihrer Meinung nach 
von der Firma Apple gestaltet wer- 
den solle, insbesondere im Hin- 
blick auf den Atari 520 ST und die 
Commodore Amiga. Gemäß mei- 
nem Erfahrungen stellen diese bei- 
den Computer keine Konkurrenz 
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für den Apple dar, denn deren 
Kundenkreis ist ein anderer. Viel 
bedrohlicher dagegen ist das an- 
dere Steinzeitprodukt namens 
IBM-PC. Dieser erfreut sich näm- 
lich gerade auf Kosten „Old Ap- 
ple’s" besonders großer Beliebt- 
heit und Verbreitung in genau den 
Kundenkreisen, die auch von Ap- 
ple anvisiert werden. Ich persön- 
lich verstehe dies nicht, denn mei- 
ne Uni-Erfahrungen an IBM-PCs 
sind weitaus weniger positiv als an 
meinem Apple Ile, wobei ich zuge- 
ben muß, daß auch mich einst das 
IBM-Fieber gepackt hatte (bevor 
ich auf IBM-PCs programmiierte). 
Auch laufen meine Applesoft-Pro- 
gramme auf meinem knapp 1MHz 
lahmen 8-Bit-Rechner mit seinem 
sehr beschränkten Befehlssatz 
(prozessorseitig) zum Teil wesent- 
lich schneller als adäquate Basic- 
Programme auf der 16-Bit-Maschi- 
ne von IBM mit über AMHz und viel 
mächtigeren Befehlen. Außerdem 
stürzt der IBM-Rechner relativ 
häufig ab, etwas, das mir in Ap- 
plesoft-Basic noch nie passiert ist! 
Dennoch erfreut sich dieses Gerät 
größter und immer größer werden- 
der Beliebtheit. An fast jeder Ecke 
hängt Charlie und streckt einem 
irgendein IBM-Produkt entgegen. 
Auch die Software-Industrie macht 
fast nur mit den auf dem IBM-PC 
lauffähigen Programmen Reklame 
und wirbt mit der IBM-Kompatibili- 
tät für Ihre Produkte. Daß diese 
zum Teil auch in einer Apple-Ver- 
sion erhältlich sind, wird ver- 
schwiegen. Selbst wenn dieses In- 
formationsdefizit seitens der Firma 
Apple nun endlich beseitigt würde, 
so ließe sich damit zwar vielleicht 
die Abwanderung von Apple-Be- 
sitzern in das IBM-Lager verrin- 
gern, aber sicher nicht umgekehrt 
eine Abwerbung von IBM-Kunden 
oder potentiellen IBM-Kunden er- 
reichen. Dazu ist etwas wesentlich 
Neues, etwas wesentlich Besseres 
nötig als das, was IBM zur Zeit zu 
bieten hat. So etwas könnte z.B. 
ein  128-Bit-Arithmetikprozessor 
mit in Nibble-Schritten variabler 
Daten- und AdreßBbreite sein. Ob 
dieses Varileren der Daten- und 
Adreßbreite wie beim 65816 über 
ein zusätzliches Flag gelöst wird 
oder einfach durch einen anderen 
Befehlscode (beim 6502 wurde 
diese Möglichkeit für die Zero- 
Page-Adressen gewählt), ist im 
Prinzip egal. Die Vorteile der varia- 
blen Datenbreite machen sich sehr 
deutlich bei Grafik mit flexiblen 
Shapes bemerkbar. Auch bei vie- 
len Rechenoperationen kann dies 


nützlich sein. Als Arithmetik-Funk- 
tionen wären zusätzlich zu den 
6502-Fähigkeiten denkbar: ADD 
(inklusive CLC), SUB (inklusive 
SEC), MULT, DIV, SERI (Entwick- 
lung einer Potenzreihe), was für 
viele transzendente Funktionen 
benötigt wird, und natürlich so 
manches mehr, was beim 6502 zu 
kurz kommt. Da die Entwicklung 
eines solchen Prozessors ein paar 
Jahre Zeit kostet, halte ich es für 
das Beste, wenn man auf der Basis 
des 65816-Prozessors eine 16 
Megabyte-Maschine entwickelt, 
auf welcher bereits ein freier Sok- 
kel für den späteren 123-Bit-Pro- 
zessor installiert ist. 

(Wenn ich das Handbuch meines 
Merlin-Pro richtig deute, hat der 
65816 eine variable Adreßbreite 
von 16 bzw. 24 Bit und eine varia- 
ble Datenbreite von 8 bzw. 16 Bit; 
der 65802 hat ebenfalls eine varia- 
ble Datenbreite von 8 bzw. 16 Bit, 
aber nur eine Adreßbreite von 16 
Bit, weshalb es bei ihm möglich ist, 
ihn pinkompatibel zum 6502 zu ge- 
stalten. Beide haben im Modus für 
16-Bit-Adressen auch noch die 
Möglichkeit der 8-Bit-Zeropage- 
Adressierung. Sobald aber auf 16 
Bit Datenbreite - und beim 65816 
damit auch auf 24 Bit Ädreßbreite — 
umgeschaltet wird, entfällt die 
Möglichkeit der Zeropage-Adres- 
sierung über eine 8-Bit-Kurza- 
dresse.) 

Dieser Computer könnte dann 
wahlweise ausgeliefert werden mit 
Tastatur oder einem Kabel mit In- 
terface für den Direktanschluß des 
alten Apple Il. Dies ist meines 
Erachtens notwendig, damit man 
die Stammkunden nicht für ihre 
Treue vor den Kopf stößt und sagt: 
„Werft euren alten Apple weg, 
kauft den neuen." Auf diese Weise 
könnte man sich vorübergehend 
Luft verschaffen, um in Ruhe den 


neuen 128-Bit-Prozessor zu ent- 
wickeln, um dann wieder konkur- 
renzfähig zu sein, besonders im 
Hinblick auf den Riesen IBM. Es 
wäre jedenfalls sehr schade, wenn 
IBM den ganzen Markt an sich rei- 
Ren könnte. Innerhalb welcher Zeit 
Apple jedoch in der Lage wäre, 
Ideen von Peeker-Lesern aufzu- 
greifen und gegebenenfalls gar zu 
verwirklichen, entzieht sich meiner 
Kenntnis. Ich weiß auch nicht, ob 
ein solches Maß an Flexibilität für 
eine Computer-Firma überhaupt 
möglich ist. Ich jedenfalls bemühe 
mich schon seit einer Weile um 
einen 65802-Prozessor, habe je- 
doch noch keinen gesehen und 
auch noch keine Bezugsquelle ge- 
funden. Sollte diesbezüglich je- 
mand mehr wissen als ich, so kann 
er dies ja der Redaktion oder mir 
mitteilen. 

Georg Maaß, Karlsruhe 

Antwort: Der Apple-Il-Nachfolger, 
der wahrscheinlich noch im vierten 
Quartal 1986 erscheinen wird, wird 
den 65816-Prozessor haben und 
insofern im Emulationsmodus zu- 
mindest weitgehend mit dem alten 
Apple II softwarekompatibel sein. 
Während der Prozessor bereits Öf- 
fentlich (in Deutschland anläßlich 
der Mac-Plus-Pressekonferenz 
Anfang 1986) bestätigt wurde, dür- 
fen wir andere technische Details 
noch nicht bekanntgeben. Anrufen 
zwecklos! 

Für den Ile und Ilc gibt es inzwi- 
schen von der Firma Checkmate 
65816-Prozessorkarten. Darüber 
hinaus kann man den 65802 auch 
selbst in den Apple Ile einbauen. 
Wenden Sie sich an die Firma Uni- 
tronic in Düsseldorf, die den 65816 
bzw. 65802 als Distributor von We- 
stern Design, Arizona (USA) ver- 
treibt. Ein Erfahrungsbericht eines 
„Selbsteinbauers" erscheint im 
Peeker. us 
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HP-Floppy und -Drucker 

Hiermit möchte ich höflichst anfra- 
gen, ob Ihnen irgendeine Möglich- 
keit bekannt ist, von einem Apple 
le aus die Doppelfloppy HP- 
9121D und den Drucker HP- 
82906A anzusprechen, die über 
eine HP-IB-Schnittstelle verfügen. 
Es handelt sich hierbei intern um 
3.5“-SONY-Laufwerke bzw. einen 
Epson FX-80 mit geändertem Zei- 
chensatz. Die Geräte sollten auch 
weiterhin an einem HP-86B einge- 
setzt werden können. Außerdem 
wäre ich für die Nennung empfeh- 
lenswerter Apple Ile-Kopien dank- 
bar, die vor allem eine größtmögli- 
che Software-Kompatibilität und 
eine gute Tastatur aufweisen 
sollten. 

Thomas Fütterer, Triberg 


TA 80008 

Ich suche schon seit längerer Zeit 
vergeblich nach einer Apple-Inter- 
face-Schnittstelle zu einer TA 
80008 Schreibmaschine. Könnten 
Sie mir in dieser Angelegenheit mit 
Tips bzw. Adressen oder mit Hin- 
weisen auf Veröffentlichungen hel- 
fen. Für Ihre Bemühungen sage 
ich Ihnen jetzt schon herzlichen 
Dank. 

Reiner Sokolowski, Flensburg 


Kann irgendein Peeker-Leser 
helfen? us 
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Korrekturen und Errata 
zu früheren Peeker-Heften 


Designer, 1/86 

Im Listing auf S. 44 wurden zwei 
Textblöcke wegen eines Montage- 
fehlers vertauscht. Siehe Korrek- 
turhinweis in Heft 2/86, S. 65. Die 
Sammeldiskette ist korrekt. us 


Quicksort, 1/86 

In der Tabelle auf S. 8 ist in der 39. 
Zeile, 16. Spalte statt „83“ nur „3“ 
abgedruckt; Belichtungsfehler. us 


AGE, 1/86 

Auf S. 35 müssen die letzten 7 
Zeilen (ab $9340...) an das Ende 
der mittleren Spalte, also ab 
$9338..., angehängt werden. Mon- 
tagefehler. Die Sammeldiskette ist 
korrekt. 


DMP-Charger, 9/85 

Daß Sie Testberichte haben, finde 
ich gut. Zum Testbericht von Ha- 
rald Grumser im September-Heft 
möchte ich aber Stellung nehmen. 
Ich habe mir den DMP-Charger 
gekauft. Appleworks hat ein 
scheußliches ß und Ü. Der Bericht 
ist mir nicht kritisch genug! Beim 
längeren Umgang mit dem Char- 
ger merkt man einige Schwach- 
punkte. So gibt es keine Lösch- 
möglichkeit eines einzelnen Zei- 
chens, wenn alle Tasten umdefi- 
niert sind. Bei der Zeichensatz-Er- 
stellung wird nicht angezeigt, wel- 
che Taste mit welchem Zeichen 
belegt ist. Besser und praktischer 
wäre da eine ausdruckbare Tasta- 
turschablone sowie eine Anzeige 
beim Editieren. So behält man 
doch Überblick. Oder wer mal ver- 
sucht hat, zwei Zeichensätze zu 
mischen, erlebt eine Ochsentour. 
Da fehlt die Möglichkeit für Sam- 
meleingaben der zu mischenden 
Zeichen. Auch das im Artikel ge- 
brachte Beispiel hätte erläutert 
werden sollen. Es handelt sich da- 
bei um einem Mac-like-Zeichen- 
satz. Zu diesem wäre eine nicht im 
Handbuch dargestellte Macke er- 
wähnenswert. Bevor man .zwei 
Zeilen „zusammenklebt”, muß 
erst eine Leerzeile bestehen. An- 
sonsten gibt es eine sichtbare Naht 
zwischen den Zeilen. Da hat der 
Druckertreiber von Appleworks 
nach Auskunft von Herrn Rau- 
tenstrauch, der das Programm ge- 
schrieben hat, eine Macke. Das 
hätte Herr Grumser doch schon 
beim Probieren merken müssen! 


Dazzle Draw, 9/85 


Ich möchte hier gerne einmal zu 
einem Leserbrief Stellung neh- 
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men, der in dem letzten Peeker (2/ 
86, 5. 64) abgedruckt war. Dort 
schrieb ein Leser, daß das Pro- 
gramm Dazzle Draw nicht fähig sei, 
die 16 Farben der Double-Hires 
Grafik auf seinem Taxan-Farbmo- 
nitor darzustellen. Da ich selbst 
viel mit Dazzle Draw arbeite und 
auf meinem Taxan Super-Vision Ill 
seltsamerweise alle 16 Farben ein- 
wandfrei zu sehen sind, liegt der 
Fehler wohl nicht am Programm. 
Der angesprochene „Grün-Violett- 
Effekt“ tritt auf, wenn man die Dou- 
ble-Hires Grafik einschaltet, ohne 
die 80-Zeichen-Karte aktiviert zu 
haben. Ich kann hier natürlich kei- 
ne Ferndiagnose stellen, aber muß 
sagen, daß es vielleicht angebracht 
wäre, das Programm einmal auf 
anderen Apple’s zu testen. 

Holger Göritz, Grünendeich 


Trickfilmgrafik, 11/85 

Bei der Überprüfung meines Pro- 
gramms habe ich folgenden Fehler 
gefunden: Beim Erhöhen des Zei- 
gers auf das Bitsprite (in der Routi- 
ne SZEICH, Label MOD) habe ich 
vergessen, den Überlauf zu be- 
rücksichtigen. Der Fehler ist ein- 
fach durch Einfügen von zwei Be- 
fehlen zu beheben (s. Heft 11/85, 
5. 12, 2. Spalte, letzte Zeile): 


248 SZEICH4 INX 
BNE SZEICH5 
INC MOD + 2 
249 INY 
250 SZEICHS DEC XCOUNT 
Dadurch wird das Programm um 5 
Bytes länger, und es verschiebt 
sich die Startadresse von POSINIT 
(nun $85C0). Dies ist bei Demo- 
Programmen entsprechend zu be- 
rücksichtigen. 
Bernd Klawonn, Bochum 


EPROM-Gerät, 10/85 

Ich habe mich sehr darüber ge- 
freut, daß Sie jetzt auch Hardware- 
Schaltungen veröffentlichen. Da 
ich schon länger eine Anleitung für 
einen Eprommer suche, habe ich 
mich entschlossen, dieses Gerät 
zu bauen. 

Beim näheren Betrachten der 
Schaltung sind jedoch noch einige 
Fragen aufgetaucht. Meine erste 
Frage bezieht sich auf das C0S1 
Signal des VIA 6522. Aus dem 
Schaltbild ist nicht zu entnehmen, 
womit er verbunden werden soll. 
Gehe ich recht in der Annahme, 
daß dieses Signal an +5V gehört? 
Die zweite Frage bezieht sich auf 
das Netzteil. Es ist leider nicht an- 
gegeben, wie der Netztrafo dimen- 


sioniert sein muß. Nach meinen 
Informationen muß die Sekundär- 
spannung in diesem Fall zwischen 
27 und 30 Volt liegen. Nun müßte 
man nur noch die Stromaufnahme 
wissen. Unklar ist auch die Hand- 
habung der unterschiedlichen 
Epromtypen. Wenn ich die Abb. 1 
(Heft 10/85, S. 41) richtig verstan- 
den habe, beziehen sich beim Pro- 
grammiersockel die Ängaben in 
Klammern auf eine 28-polige Fas- 
sung und die ohne Klammern auf 
eine 24-polige. Die kleinere Fas- 
sung eignet sich nur für die Eprom- 
typen 2716 und 2732. Mit der grö- 
Beren müßten dann auch die Ty- 
pen 2764 und 27128 bearbeitet 
werden können. In der 28-poligen 
Fassung müßten dann die 16- und 
32iger Typen so eingesetzt wer- 
den, daß die 4 freien Plätze der 
Fassung auf der Seite der Einker- 
bung des Eproms liegen. 

Im übrigen vermisse ich die An- 
schlußbelegungen der ICs 
CD4050 und SN7404. Ich habe in 
meinen Unterlagen die Anschluß- 
belegungen nachgesehen: 

4050: +5V an Pin 1, Masse an Pin 
8. Weitere Pinbelegung der Treiber 
mit Reihenfolge Eingang/Ausgang: 
3/2.3/4,1270, 9710211712, 12715, 
7404: +5V an Pin 14, Masse an 
Pin 7. Weitere Pinbelegung der In- 
verter mit Reihenfolge Eingang/ 
Ausgang: 1/2, 3/4, 5/6, 9/8, 11/ 
1083/12. 

Der Ausgang eines Treibers/Inver- 
ters befindet sich am spitzen Ende 
des Schaltsymbols. 

Ich hoffe, daß ich nicht der einzige 
bin, der zu der Schaltung Fragen 
und Ergänzungen hat, so daß die- 
se Punkte möglichst bald klarge- 
stellt werden können. 

Trotz der Unklarheiten finde ich die 
Schaltung gut, da sie eine Alterna- 
tive zu einem teuren Eprommer 
bietet. 


Mark Liebrand, Bocholt 


Antwort von Dr. Schule: Herr 
Liebrand hat recht: In die Abbil- 
dung des EPROM-Programmier- 
geräts haben sich einige kleine 
Unterlassungen hineingemogelt: 
CS1 ist mit +5V verbunden, die 
Pin-Numerierung bezieht sich je 
nach Wunsch auf einen 24-poligen 
(Pin-Nummern nicht eingeklam- 
mert) oder auf einen 28-poligen 
Sockel (Pin-Nummern in Klam- 
mern). Auch die Inverter und Trei- 
ber kann man sich nach der Liste 
der Anschlüsse der IC aussuchen. 
Den Trafo wählt man nach der Ver- 
fügbarkeit, wobei ein gebräuchli- 
cher Wert z.B. 2x15V, 3,5VA Ist. 
Die beiden Sekundärwindungen 
werden dann in Serie geschaltet. 
Wir hoffen, daß mit den Ergänzun- 
gen von Herrn Liebrand der Nach- 


bau auf keine Schwierigkeiten 
stößt, 


READPAS, 1/86 

Bei UCSD-Pascal wird die aktuelle 
Anzahl Files über einen Zähler im 
Directory erkannt. Ungültige File- 
Einträge werden physikalisch nicht 
gelöscht, sondern nur nicht mehr 
berücksichtigt. Der Filetyp bean- 
sprucht nur 4 Bit Platz im Directory 
und nicht ein ganzes Byte. Die 
zwei genannten Fehler sind in un- 
tenstehender Prozedur GETFILES 
beseitigt (ersetzt die veröffentlich- 
te Prozedur). 


PROCEDURE GETFILES; 

TYPE 
UCSDDIR = ARRAY [O..77] 

OF RECORD CASE INTEGER OF 
0: (VSTB, VNEB,VTYP: IN- 
TEGER; 

VVNA:STRING|[ 7]; 

VKBN, VFNU, VTIM, VDAT: IN- 
TEGER); 
1:(DSTB,DENB,DTYP: IN- 
TEGER; 

DFNA:STRING[15]; 
DLEN, DDAT: INTEGER) ; 

END; 

VAR 

I: INTEGER; DIRECTORY: 
UCSDDIR ABSOLUTE DIRBLOCK ; 
BEGIN 

FILEZAHL :=DIRECTO- 
RY[O].VFNU; 

{Anzahl gültiger Files} 
FOR I:=1 TO FILEZAHL DO 
WITH DIR[I],DIRECTORY[I] 
DO 

BEGIN 

VON:=DSTB; BIS:=DENB; 
EOFBYTE:=DLEN-1; 
FTYP:='DATA' 
{Data,Bad,Info,Graf,Fo- 
to, Dir} 

CASE (DTYP AND 15) OF 

{Nur 4 Bit sind massgebend; 
TURBO} 

2:FTYP:='CODE'; 

{'packt' Bit-Arrays nicht 
gleich} 

Ska YE — TEXT: 

{wie UCSD Pascal} 

END; 

FNAME:=DFNA; 

END; 

END; 

Bernard Condrau, CH-Dübendorf 


DOS-Mover, 2/86 

In dem obengenannten Artikel wei- 
sen Sie darauf hin, daß weder FID 
noch RENUMBER unter gemov- 
tem DOS laufen. Durch kleine Än- 
derungen werden die Programme 
auch unter gemovtem DOS |lauf- 
fähig: 

Änderungen für FID: 

BLOAD FID 

CALL-151 

0854: 90 
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BSAVE FID, A$803, L$124F 
Änderung für RENUMBER: 

LOAD RENUMBER 

CALL-151 

0B7C: 69 80 30 09 C9 08 10 05 
109C: 4C 6C D6 

SAVE RENUMBER 

Achtung: Die Adressen $0B7C 
und $109C gelten für RENUMBER 
von der System-Master 1982. Für 
die ältere Version von 1980 sind 
diese durch $0B63 und $1083 zu 
ersetzen. 

Harald Nitsche, Gummersbach 


Makros für 65C02, 4/85 

Vielen Dank für den Artikel, in dem 
sich m.E. einige Fehler befinden 
(Heft 4/85, S. 31 ff). Alte Zeile 
durch folgende ersetzen: 

97DS2 

1170852 

154 x BRA 

299 DS-2 

303 RMBl EQU U1x$10.$07 

327 DS-2 

331 SMBl EQU 8+U1x$10.$07 
Ansonsten ein Lob für Inhalt und 
Aufmachung des Peeker. 

Jürgen Treumer, München 


Frühere Korrekturen 

Turtle Graphic 1/84/19, Ergänzung 
2/84/10 

ProDOS-Patch für F83-ROMs 1/84/ 
54, Ergänzung 2/84/10 

Poor Man’s RAM-Disk 1-2/85/8, 
Ergänzung 6/85/69 
Garbage-Collection 
Berichtigung 8/85/70 
Pascal 1.2 3/85/65, Ergänzung 10/ 
85/60 

Terminal-Programm 4/85/34, Er- 
gänzung 6/85/72 

INALL 4/85/70, Berichtigung 5/ 
85/50 

PLOT 2.0 5/85/17, Berichtigung 9/ 
85/69 

Superdump 6/85/22, Ergänzung 
8/85/50 

Diversi-DOS 2C 6/85/72, Ergän- 
zung 10/85/69 
Graf-quattro-Cursoren 6/85/6, Er- 
gänzung 10/85/63 
Fourier-Analyse 6/85/34, Berichti- 
gung 9/85/69 

Pascal-RAM-Disk 6/85/48, Berich- 
tigung 7/85/52 

Format-Programm 7/85/20, Ergän- 
zung 9/85/69 

Adreßverwaltung in dBase 8/85/ 
40, Ergänzung 10/85/21 


Cirtech-CP/M-Karte, 4/86 


Wir haben das Programm „SU- 
PERQUICK“ ausführlich getestet 
und sind zu dem Ergebnis gekom- 
men, daß es hierbei um ein Soft- 
ware-Problem des Programmes 
„SUPERQUICK“ handelt und nicht 
um ein Problem unserer CP/M- 
PLUS-Hardware. Bitte entnehmen 
Sie den folgenden Punkten weitere 
Einzelheiten: 


1-2/85/32, 
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1. Alle kommerziellen Apple-//e,c- 
Programme laufen auf dem Apple // 
e,c mit dem eingebauten CIRTECH- 
CP/M-PLUS-SYSTEM fehlerfrei, 
sofern diese richtig installiert wer- 
den. Dies bezieht sich auf alle App- 
le-//e,c-Programme, so 2.D. 
WORDSTAR, TURBO PASCAL, 
SUPERQUICK, LOCKSMITH 5.0, 
APPLEWORKS, VISICALC etc. 

2. Bei einigen Programmen müssen 
vor dem Ersteinsatz verschiedene 
Parameter auf die speziellen Bedürf- 
nisse des Apple //e,c angepaßt wer- 
den. Dies trifft auch auf das Pro- 
gramm „SUPERQUICK“ zu. 

3. Das Programm „SUPERQUICK“ 


läuft fehlerfrei — Kaltstart sowie 
Warmstart _ sofern die 
Suchroutine nach RAM-Erweite- 


rungskarten ausgeschaltet ist. Dies 
ist notwendig, da das Programm 
„SUPERQUICK" beim Suchen 
nach weiteren RAM-Karten (IBS AP 
17) in den ROM-Speicherbereich 
$C400-$C7FF schreibt und da- 
durch die CIRTECH-Z80-Karte ein- 
schaltete. Dies führt zum Abstürzen 
des Programmes. 

4. Das bekannte Kopierprogramm 
LOCKSMITH 5,0, welches ebenfalls 
den Äpple //e,c nach RAM-Erweite- 
rungskarten absucht, bewältigt die- 
ses Problem ohne in den ROM- 
Speicherbereich $C400-$C7FF zu 
schreiben. Dadurch treten keinerlei 
Probleme bei dem Einsatz von dem 
Programm LOCKSMITH 5.0 auf ei- 
nem Apple //e,c mit eingebautem 
CIRTECH-CP/M-PLUS-SYSTEM 
auf. 

5. Wir empfehlen zur Beseitigung 
des Problemes, das Programm 
„SUPERQUICK“ in einer Version 
auszuliefern, bei der die Suchrouti- 
ne nach RAM-Erweiterungskarten 
ausgeschaltet ist und des weiteren 
den End-User detaillierter auf mögli- 
che Probleme in dem Kapitel 4 des 
SUPERQUICK-Handbuches hinzu- 
weisen. 

Bei der von uns angegebenen Takt- 
frequenz von ca. 4 bis 5,7 MHz han- 
delt es sich um einen statistischen 
Mittelwert und nicht um einen Abso- 
lutwert! 

Das von uns gelieferte Handbuch ist 
in erster Linie für den kommerziellen 
Anwender gedacht und enthält für 
diesen alle notwendigen Informatio- 
nen zum Einsatz kommerzieller CP/ 
M-Programme. Für den „Tüftler“ 
bieten wir das von Ihnen erwähnte 
CP/M-PLUS-Programmier-Paket 
an. 

M. Semjan, Frankfurt 


Vokabeltrainer, 1/86 


In dem Applesoft-Modul VOK, 
TRAINER (Sammeldisk #13) sind 
folgende Zeilen zu berichtigen: 
1790 IF C$ <> "G" THEN GOTO 
1270 
(statt IE 68 = <>.G,.) 
2355 IFF$ = "N" 
OR F1$ = "N" THEN GOTO 
2020 
(statt nur IFF$ = "N" THEN ...) 





(DOS 3,3; Heft 4/1986; Einzel- 
preis DM 28,-; Fortsetzungspreis 
DM 20,-) 

(1) = Zweck; (2) = Heft/Seiten- 
zahl; (3) = Gerätekonfiguration; 
(4) = Betriebssystem; (5) = Pro- 
grammstart; (6) = Sonstiges 
MACROEDITOR 

Applesoft-Editor für Apple Ile/c/+ 
mit 40 Z/Z und DOS 3.3. Detaillier- 
te Anleitung in Heft 4/85, S. 13. 
Kostenlose Zugabe für diejenigen, 
die beim Erscheinen von Disk #16 
regelmäßige Sammeldisk-Bezie- 
her waren. Nicht auf der separat 
ausgelieferten Disk #16 für Einzel- 
besteller enthalten! Kunden, die 
nach dem 31.3.86 einen Fortset- 
zungsauftrag für mindestens 6 Dis- 
ketten (inkl. Disk #16) erteilen, er- 
halten ebenfalls den Applesoft- 
Editor. Bitte bei Bestellung geson- 
dert vermerken! Im übrigen ist der 
Editor unter dem Namen „MUM" 
bei der Firma Heyden in London 
für umgerechnet ca. DM 150,- er- 
hältlich, 

MSTEST (Run) 

T.M8RLN + MSRLN 

T.M8LRN + MSLRN 

T.M8RLT + M8RLT 

T.M8LRT + M8LRT 

MI16TEST (Run) 

T.MI6RLN + MTI6RLN 

T.MI16LRN + MT6LRN 

T.MI6RLT + MI6RLT 

T.MI16LRT + MI6LRT 
MULT8RLN.DEMO (Run) 
T.MULT8SRLN + MULTSRLN 
MULTI6RLN.DEMO (Run) 
T.MULTI6RLN + MULTTERLN 
DI6TEST (Run) 

T.DI8VI # D16V1 

T.D16V2 + D16V2 

T.D16V3 + D16V3 

T.D16V4 + D16V4 

D24ATEST (Run) 

T.D24V2 + D24V2 

DIV16.DEMO (Run) 

T.DIV16 + DIV16 

DIV24.DEMO (Run) 

T.DIV24 + DIV24 

(1) Programmsammlung für binäre 
Multiplikation und Division; (2) Heft 
4/86, S. 6; (3) II+/e/c; für Demos 
80-Zeichenkarte erforderlich; (4) 
DOS 3.3 oder ProDOS; (5) Die mit 
„Run“ markierten Applesoft-Pro- 
gramme sind Demos für Schu- 
lungszwecke: mit RUN MSTEST 
usw. starten. 


FONT.LOADER 
T.FONT.LOADER.OBJ 
FONT.LOADER.OBJ 
TLEONEEONNVERT 
FONT.CONVERT 

ASCILFONT 

DEUTSCHYFONT 
SONDERZEICHEN.FONT 

(1) Hilfsprogramm zum Übertragen 


Peeker-Sammeldisk #16 


von DOS-Toolkit-Zeichensätzen 
(Programm der Firma Apple) und 
BITEDITOR-Zeichensätzen (Pro- 
gramm von Peeker-Sammeldisk 
+7) an den Imagewriter; (2) Heft 
4/86, S. 32; (3) Apple Il+/e mit 
Super Serial Card oder IIc; Ima- 
gewriter | (4) DOS 3.3; (5) RUN 
FONT.LOADER, dann mit „4" Zei- 
chensatz an Drucker übertragen. 
HAUSHALT 

HAUSHALT,40 

DATEI 

(1) Programm für Buchführung im 
Haushalt; (2) Heft 4/86, S. 42; (93) 
HAUSHALT für Ilc oder Ile mit 
neuen ROMs; HAUSHALT40 für 
Ile mit alten ROMs; (4) DOS 3.3 
oder ProDOS; (5) RUN HAUS- 
HALT oder HAUSHALT4O 
DUMP8OREL.DATA 
T.DUMPS3OREL 

DUMPS8OREL 

(1) 80-Z/Z-Bildschirm-Dump auf 
Drucker in Slot 1; (2) Heft 4/86, S. 
52; (3) Ilc oder Ile mit 80 Z/Z, 
Epson-Drucker oder Imagewriter; 
(4.D053.3 Oder 'ProDO@S: 5) 
RUN DUMPS8OREL.DATA, dann 
CALL 768; (6) Programm ist relo- 
kativ und kann sich deshalb an ei- 
ner beliebigen Stelle im Speicher 
befinden. Dafür kann im Ge- 
gensatz zu SCREEN80.DATA 
kein Bildschirmausschnitt definiert 
werden. 

KYANASM 

HEXTYPEN 

(1)  Kyan-Muster-Assemblerpro- 
gramme; (2) Heft 4/86, S. 48; (3) 
Apple II+/e/c; (4) Kyan-Pascal 1.2 | 
+ ProDOS; (5) Quelltexte KYAN- | 
ASM und HEXTYPEN müssen zu- 
nächst mit DOSTOPRO auf Kyan- 
Arbeitsdiskette konvertiert wer- 
den; (6) Achtung: Muster-Pro- 
gramme laufen nicht auf Kyan Ver- 
sion 2,01 


FUNKSTART. TEXT 
FUNKDEMO.TEXT 
FUNKUNIT.TEXT 
FUNKEXEC.TEXT 

(1) Eingabe von Funktionen im lau- 
fenden Pascal-Programm; (2) Heft | 
4/86, S. 58; (3) Apple Il+/e/c; (4) 
UCSD-Pascal 1.1/1.2:; Dateien | 
müssen zunächst mit GETDOS 
von Disk #15 konvertiert werden; 
(5) s. Heft 

MUSIK.EDITOR 

T.TONROUTINE 

TONROUTINE 

M.SONATA 

SONATA 

(1) Programm zur Ein- und Wieder- 
gabe von zweistimmigen Musik- 
stücken; (2) Heft 4/86, S. 60; (3) 
II+ (mit G/K), lle/c; (4) DOS 3,3; 
(5) RUN SONATA; RUN MUSIK- 
‚EDITOR 


Hüthig Software Service - Postfach 102869 Heidelberg 


Computerbucher 


diegehen, für Computer 


diekommen. 





Arme Schäpers 


ProDOS-Analyse 


Versionen 1.01, 1.0.2, 1.1.1 


fi) Hüchig 


Arne Schäpers 
ProDOS-Analyse 
Versionen 1.0.1, 1.0.2, 1.1.1 


1985, 470 S., kart., DM 68,- 
ISBN 3-7785-1134-3 





Ulrich Stiehl 

Apple Assembler 

1984, 200 S., 3 Abb., kart., 
DM 34,— 

ISBN 3-7785-1047-9 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: 


Dr. Alfred Hüthig Verlag, Postfach 10 28 69, 6900 Heidelberg 1 
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Bewegte | 
Apple-Grafik 


DOS Toolkit-Erweiterungen 





Arne Schäpers 
Bewegte Apple-Grafik 


1985, 305 S., 6 Abb., kart., 
DM 58,— 
ISBN 3-7785-1150-5 


er we 


 ; u dd | 393 3 6 Me] 


Mit ausführlichen 


Programmbeispielen Tips 
Ulrich Stiehl TTıfe 
Tricks 


2, Auflage 





Ulrich Stiehl 
Apple DOS 3.3 
Tips und Tricks 


3., völlig überarb. Aufl. 1986 
X, 203 S., kart., 

DM 28,- 

ISBN 3-7785-1298-6 


Applesoft BASIC 





/ıps und 
Jticks 


Frank Bühler 
Applesoft Basic 
Tips und Tricks 


1985, 241 S., 40 Abb., kart., 
DM 38,— 
ISBN 3-7785-1094-0 


u a m er mu vr gr 


für Aufsteiger 


Mit ausführlichen 


Ulrich Stiehl Programmbeispielen | 


2. Auflage 


Ulrich Stiehl 
ProDOS für Aufsteiger 
Band 1 


2., geänderte Auflage 1985, 
208 S., kart., DM 28,— 
ISBN 3-7785-1098-3 











Ten 
lernen 


Band 1: Einführung in die 
Assembler-Programmierung 





Mn f 17 
a i _L 
Ye Pr a en 


Jürgen Kehrel 
Assembler lernen 


Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 


1985, 235 S., kart., 
DM 38,— 
ISBN 3-7785-1151-3 


für Aufsteiger 


Wil ausführlichen 
Ulrich Suehl  Programmbeispielen 





Ulrich Stiehl 


ProDOS für Aufsteiger 
Band 2 


1985, 207 S., kart., DM 30,— 
ISBN 3-7785-1036-3 


Hüthig 


15 





Flipper--Karte 

Die Flipper-Karte dient der Spei- 
chererweiterung des Apple Il. Da- 
mit kann man den Apple II+/e zu 
einem Computer mit bis zu 6M 
RAM Speicher ausbauen. Die Kar- 
te wird einfach in den Apple Il+/e 
gesteckt und ist sofort einsatzfä- 
hig. Sie ist kompatibel zu DOS 3.3, 
CP/M, Pascal und ProDOS sowie 
auch Appleworks. 

Die wichtigsten Eigenschaften der 
Flipper-Karte: 

— Die Karte wird mit 1M RAM gelie- 
fert. 

— Auf max. 6M RAM erweiterbar. 
— Kein „Patchen“ notwendig. 

— Wird automatisch vom Cirtech- 
CP/M-Plus-System aktiviert. 

-— Einsatz unter verschiedenen Be- 
triebssystemen möglich, z.B. CP/ 
M, Pascal und ProDOS. 

— Sehr schneller Datenzugriff. 

— In jedem Slot einsatzfänhig. 

— Eingebauter Fehler-Selbsttest. 
Bezugsquelle: M. Semjan Compu- 
ter Systeme, Frankfurt 


Fakturierprogramm Faktufix 
Das Programm FAKTUFIX gibt 
dem Kaufmann laufend einen aktu- 
ellen Überblick über Kunden, Arti- 
kel und offene Posten (Rechnun- 
gen). Man kann 

— 480 Kunden- bzw. Lieferanten- 
adressen je Laufwerk und Diskette 
speichern, 

— 720 Artikel je Laufwerk und Dis- 
keite erfassen, 

— 480 offene Posten je Laufwerk 
und Diskette aufnehmen, 

— Auftragsbestätigungen, Liefer- 
scheine, Rechnungen, Gutschrif- 
ten und Bestellungen drucken, 

— die 6-stelligen Artikelnummern 
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Europrint FT 80 X 

ist ein leistungsfähiger Nadeldruk- 
ker mit folgenden Merkmalen: 

— Epson-, IBM-, Schneider- oder 
C64-Zeichensätze und Steuerco- 
des per DIP-Schalter einstellbar 

— Near Letter Quality (NLQ) 

— Prüfzertifikation gemäß GS und 
Blz 

— 100 Zeichen/s. 

— niedriger Geräuschpegel 

— robuste Ausführung für harten 
Dauereinsatz 

— viele Anschlußsätze wie C64, 
Apple, IBM, GPC 464 eic. 

Der Grundpreis für Europrint ohne 
Interface beträgt DM 695,-. Die In- 
terface-Karten sind ab DM 95,- lie- 
ferbar. 

Europrint wird mit reichhaltigem 
Zubehör geliefert: 

— Farbbandrollenaufnahme 

— Einzelblatischacht 

— Staubschutzuhaube 

— Papierrollenhalter 

Bezugsquelle: Unitronic GmbH, 
Düsseldorf 


frei festlegen, wobei eine Doppel- 
vergabe ausgeschlossen ist, 

— Kundenlisten, Artikellisten und 
Rechnungslisten nach mehreren 
Kriterien sortiert ausdrucken, 
— Zahlungseingänge mit 

chungssatz für BUFIX tätigen, 
— die Eingabe durch Makro-Befeh- 
le erleichtern. 


BU- 


Dieses Programm zeichnet sich 
durch leichte Erlernbarkeit, anwen- 
derfreundliche Eingabe mit Korrek- 
turmöglichkeit und hohe Verarbei- 
tungsgeschwindigkeit aus, 


Bezugsquelle: Herr Rötering, So- 
est (keine eingetragene Firma) 





Jazz 1A für Mac Plus 

Die neue Jazz-Version 1A unter- 
stützt folgende Erweiterungen des 
Macintosh Plus: 

— Installation auf der Festplatte, die 
eine Programm-Diskette im Lauf- 
werk überflüssig macht. 

— Schnellere Zugriffszeiten (indem 
das interne doppelseitige Disket- 
tenlaufwerk ausgenutzt wird, paßt 
das Betriebssystem und das kom- 
plette Jazz-Programm auf eine 
Diskette). 

-— 1 M RAM, das dem Anwender 
erlaubt, größere Jazz-Dokumente 
anzulegen. 

— Unterstützung von neuer Mac- 
Plus-Tastatur. 

— Schnelleres Ausdrucken über 
den LaserWriter. 

— Unierstützung der 
schen Dateien-Struktur. 
Bezugsquelle: Lotus, München 


hierarchi- 


Champion-Drucker-Karte 

Das neue Drucker-Interface 
Champion von Cirtech mit 16K 
RAM bzw. 64K RAM Puffer für den 
Apple Il+/e wird in Deutschland 
über die Firma Semjan vertrieben. 
Es druckt sowohl die Textseiten 
(40/80 Zeichen) als auch die Gra- 
fikseiten aus und ist mit den mei- 
sten Druckern mit CGentronics-Pa- 
rallel-Schnittstelle kompatibel. 


Eine serielle Ausgabe und Eingabe 
ist mit dem seriellen Adapter mög- 
lich und verwandelt die Karte in 
eine vollwertige parallele und se- 
rielle Schnittstelle (RS 232C) für 
den Apple Il+/e. Das Champion- 
Drucker-Interface ist voll DOS-, 
ProDOS-, Pascal-, CP/M- und Ap- 
pleworks-kompatibel. 


Bezugsquelle: M. Semjan Compu- 
ter Systeme, Frankfurt 





Grafiktablett für Mac 

Das Mactablet von Summagra- 
phics mit einer aktiven grafischen 
Fläche von 152 x 227 mm und 
einer Auflösung von 20 I/mm ver- 
sorgt den Macintosh-Computer mit 
einem idealen Interface für grafi- 
sche Anwendungen. Mit dem Mac- 
tablet erhalten Sie zusätzliche 
Möglichkeiten, wie das Übertragen 
und Ändern von schon vorhande- 
nen Zeichungen oder das Entwer- 
fen von eigener Grafik oder von 
Konstruktionsplänen. Die maxima- 
le Vorlagestärke beträgt 12 mm. 
Durch den universellen Aufbau der 
Treiber-Software ist das Mactablet 
kompatibel mit Macdraw, Macpaint 


und allen Software-Paketen für 
den Apple-Macintosh. Nachdem 
die Treiber-Software installiert ist, 
erscheint das Mactablet als Be- 
standteil im Desktop-Accessory, 
Sie können wählen zwischen Ap- 
ple-Mouse und Mactablet. Beide 
Eingabesysteme können aktiviert 
sein und wahlweise je nach Appli- 
kation eingesetzt werden. Der at- 
traktive Preis von DM 1.653,- 
schließt die Stromversorgung, die 
Treiber-Software und einen grafi- 
schen Stift ein, so daß Sie sofort 
mit Ihrer grafischen Arbeit begin- 
nen können. 

Bezugsquelle: Summagraphics 
Corporation, München 





Drucker-Treiber 

Wohl jeder, der ein Computersy- 
stem zusammenstellt, steht vor 
dem Problem des Druckeran- 
schlusses, wobei hier nicht die 
Hard-, sondern einmal die Soft- 
wareseite beleuchtet werden soll. 
Angenommen, ein Anwender hat 
sich für ein Computersystem ent- 
schieden. Leistungsfähigkeit und 
Kompatibiltät wurden ebenso be- 
achtet wie ein umfangreiches Soft- 
ware-Angebot. Natürlich sollen 
dann die mit dem Computer erar- 
beiteten Ergebnisse auch zu Pa- 
pier gebracht werden. 

Nehmen wir weiter an, die Ent- 
scheidung fällt auf einen Punktma- 
trixdrucker. Eigentlich logisch. 
Denn dieser Druckertyp erledigt 
vielfältigste Aufgaben in vernünfti- 
gem Kosten/Leistungsverhältnis. 
Apropos Preis: Angeblich preis- 
günstige Geräte gibt es wie Sand 
am Meer, aber der Freude an der 


gesparten Mark folgt schon bald 
bittere Enttäuschung: 

— Die Druckgeschwindigkeit ist zu 
langsam. 

— Korrespondenzqualität wird nicht 
erreicht. 

— Geringe Auflösung bei Grafiken. 
Kurzum: Der Drucker ist professio- 
nellen Ansprüchen nicht gewach- 
sen. Denn die auf dem Bildschirm 
zu sehenden Texte und Grafiken 
sind einfach nicht qualitativ hoch- 
wertig auf Papier zu übertragen. 
Der Grund für die Enttäuschung 
liegt klar auf der Hand: Drucker der 
ersten Generation mit 9-Nadel- 
Druckkopf sind den gestiegenen 
Ansprüchen niemals gewachsen. 
Ausschließlich Punktmatrixdrucker 
mit 18- bzw. 24-Nadel-Druckkopf 
erfüllen professionelle Anforde- 
rungen. 

Aber gehen wir noch einmal einen 
Schritt weiter, Der Anwender ist 
jetzt von Druckern der 18- und 24- 
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Nadel-Kategorie überzeugt. Die 
technischen Daten sprechen für 
sich, und die Qualität des bei Ein- 
satz von Programm A gemachten 
Ausdrucks ist vorbildlich. Der Aus- 
druck von Programm B ist jedoch, 
auch mit dem professionellen 
Drucker, kaum besser als mit dem 
„alten“ 9-Nadel-Drucker. Wie ist 
so etwas möglich? 

Nicht nur die Leistungsfähigkeit 
der Software und der Drucker ist 
ausschlaggebend. Es kommt noch 
ein dritter Faktor hinzu: Qualität 
und Leistungsspektrum des soge- 
nannten „Treibers", der Verbin- 
dung zwischen Software und 
Drucker. 

Der Treiber wandelt die Druckaus- 
gabedaten eines Programms in ei- 
ne für den Drucker verständliche 
Reihe von Kommandos und 
Druckdaten um und bestimmt da- 
durch die Art und Form des Aus- 
drucks. 

Dabei unterscheiden sich Drucker 
übrigens auch in der Kommando- 
sprache. Zwar gibt es einige Stan- 
dards, die aber bei weitem nicht 
ausreichen, die Möglichkeiten, die 
so mancher Drucker bietet, voll 
auszuschöpfen. Standards und 
Kompatibilität können demnach, 
wollte man einmal etwas böswillig 
schlußfolgern, eher hemmend als 
förderlich sein. 

Dieses Problem ist prinzipiell aller- 
dings recht einfach zu lösen. Jeder 
Drucker sollte seinen spezifischen 
Treiber haben. Aber dies ist we- 
sentlich einfacher hingeschrieben 
als praktisch umgesetzt. Denn eine 
Vielzahl der momentan angebote- 
nen Software — hauptsächlich je- 
doch die Programme älteren Da- 
tums — verfügt lediglich über einen 
standardisierten Treiber, der Druk- 
ker auf einem Niveau unterstützt, 
das vor 5 Jahren akzeptabel, heute 
jedoch völlig unzureichend ist. Er- 
freulicherweise zeichnet sich aller- 
dings auch hier langsam aber si- 
cher eine Wende ab. Denn die 
Software-Produzenten haben die- 
sen Mißstand erkannt und bieten 
bei Ihren neuen Software-Paketen 
die Möglichkeit, einen dem jeweili- 
gen Drucker entsprechenden Trei- 
ber in das Programm zu inte- 
grieren. 

NEC hat vor allem in den letzten 
Monaten den Schwerpunkt auf die 
Entwicklung und Anpassung von 
Druckertreibern für NEC Spinwriter 
und Pinwriter gelegt. 
Bezugsquelle: NEC Business Sy- 
stems, München 
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A/D-Wandlerkarte Softcard II 

Das Aufbauprinzip besteht in 
der parallelen Anordnung von 
RAM bzw. EPROM im slotunab- 
hängigen Teil des I/O-Bereichs 
($C800-$CFFE). Dieser 2K große 
Adreßumfang wird von der Soft- 
card || in zwei unabhängige Berei- 
che unterteilt: In den Speicher von 
$C800 bis $CEFF werden die di- 
versen EPROM- bzw. RAM-Bänke 
je nach Wunsch des Benutzers 
eingeblendet. Die oberen 255 
Bytes von $CFO0-$CFFE stehen 
hingegen allen Bänken als ge- 
meinsames RAM zur Verfügung. 
Durch dieses Konzept ist es mög- 





lich, einen kleinen gemeinsamen 
Datenbereich für alle Programmtei- 
le zu haben. Diese Aufteilung er- 
laubt es auch, Programme mit pri- 
vaten Daten und großer Gesamt- 
länge (Parameterübergabe zwi- 
schen einzelnen Programmteilen 
auf den verschiedenen Speicher- 
bänken) zu entwickeln. Die An- 
wendungsmöglichkeiten der Soft- 
card II sind sehr vielseitig. Neben 
einer Entlastung des Apple-Haupt- 
speichers ermöglicht diese Zu- 
satzkarte dem Programmierer, 
temporäre Variablen in gesonder- 
ten Bereichen unterzubringen. Die 
einfachste Einsatzmöglichkeit ist 





255 Bytes 
RAM 





Produkte 9.4 


für den Assemblerprogrammierer 
gegeben. Er kann häufig benötigte 
Unterprogramme im EPROM able- 
gen und Ist dadurch in der Lage, 
unterschiediche Anwendungen 
ständig parallel zur Verfügung zu 
haben, ohne sie immer wieder neu 
von Diskette laden zu müssen. Der 
BASIC-Programmierer hat durch 
die Softcard II die Möglichkeit, 
nützliche Ampersand-Routinen 
dort abzulegen und so den Be- 
fehlssatz nach den eigenen Be- 
dürfnissen beliebig zu erweitern. 
Als Option ist von WINTEX Instru- 
ments ein kompletter Ampersand- 
Handler verfügbar, so daß nur 
noch die eigentlichen Routinen 
vom Anwender erstellt werden 
müssen. Mit der variablen Be- 
stückung der Softcard II ist eine 
bedarfsgerechte Anpassung der 
Hardware an den jeweiligen Ein- 
satz möglich: Es sind sechs uni- 
versell einsetzbare Stecksockel 
vorhanden, die sowohl EPROMs 
(Kapazitäten von 2K bis 8K) als 
auch RAMs (Kapazitäten von 2K 
und 8K) aufnehmen können. Zu- 
sätzlich ist je ein weiterer Sockel 
für den notwendigen RAM-Bau- 
stein (256 Bytes gemeinsames 
RAM für alle Bänke) und das slot- 
abhängige EPROM vorhanden. 
Der Speicherumfang kann beliebig 
zwischen maximal 42K EPROM 
und rund 50K RAM variiert werden, 
wobei die unterschiedlichsten 
Kombinationen von RAM und 
EPROM auf der Softcard || zulässig 
sind. Die Minimalausstattung be- 
steht in der Bestückung mit einem 
RAM. Der variable Einsatz von 
RAM und/oder EPROM erlaubt es, 
bis zur entgültigen Fertigstellung 
der Routinen mit einem RAM zu 
arbeiten und dann nur einmal ein 
EPROM zu brennen. 





PIA-Karte für Apple Il 
Die PIA-Karte dient zur Steuerung 


paralleler Prozesse durch einen 
Apple II+ oder Ile. Sie kann, je 





nach Ausbaustufe, z.B. zum Steu- 
ern einer Alarmanlage, zum Ein- 
schalten bestimmter Geräte zu be- 
stimmten Zeitpunkten oder als ein- 
fache Uhr verwendet werden. Au- 
Berdem lassen sich fast alle paral- 
lelen Schnittstellen (IEEE, Centro- 
nics) simulieren und konverlieren. 
Die PIA-Karte ist mit bis zu 4 PlAs, 
einem RAM oder EPROM sowie 
einer Real-Time-Clock bestückt. 
Im einzelnen sind folgende Bautei- 
le vorgesehen: 


— PIA: 6821 

— Uhr: RTC 58321 

— Speicher: 6116 oder 2716 oder 
2732 sowie kompatible Typen. 
Bezugsquelle: Conrad Helmcke, 
Berlin 
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Gepard-Computer 

Die Firma Gepard Computer ist ein 
deutsches High-Tech-Unterneh- 
men. Ziel der Firma ist es, techno- 
logisch herausragende Microcom- 
putersysteme für den industriellen, 
wissenschaftlichen und semi-pro- 
fessionellen Bereich zu entwik- 
kein. Der Gepard-Computer ist ein 


 modulares System auf Europakar- 


ten in einem 19"-Tischgehäuse 
oder einem 19"-Einschub einge- 
baut. Der System-Bus weist 16 
völlig gleichberechtigte Steckplät- 
ze mit 96poligen, vergoldeten 
Steckverbindungen auf. Das Sy- 
stem basiert auf der schnellen 16- 
Bit-CPU 68000 (68020 in Vorbe- 
reitung). Es zeichnet sich durch 
große Modularität auf der Hard- 
und Software-Ebene aus. Änwen- 
derspezifische Problemlösungen 
sind somit kostengünstig und 
schnell zu realisieren. Weiterhin ist 
ein preiswerter Einstieg in die 16- 
Bit-Technologie durch Gepard-Mi- 
nimalpakete, z.B. für Apple-Il- und 


Commodore-C64-Besitzer mög- 
lich. Die Software basiert auf der 
Sprache Modula-2 und ist ebenso 
modular aufgebaut wie die Hard- 
ware. Eine systematische Syntax 
ermöglicht das einfache Erlernen 
dieser zukunftsträchtigen Hoch- 
sprache. Zur Grundausstattung 
gehört folgende Software: Be- 
triebssystem GDOS, Modula-2- 
Compiler, 2 Programm-Editoren, 


Debugging-Tool und Symbolischer | 


68000-Assembler. Einige profes- 
sionelle Programme wird es in Kür- 
ze geben. Die klare, übersichtli- 
che, deutsche Dokumentation 
(über 350 Seiten) erleichtert die 
Einarbeitung wesentlich. Ein „Up- 
date-Service“ hält jeden Anwen- 
der auf dem aktuellen Stand. Au- 
Berdem bringt die Hauszeitschrift 
„68000 News" alle neuen und 
wichtigen Informationen an einen 
großen Kreis von Benutzern und 
Interessenten. 

Bezugsquelle: Gepard Computer 
GmbH & Co. KG, Oldenburg 
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Preiswerte Begleitdisketten 


Begleitdiskette 
zu „ProDOS$ für Aufsteiger“ 
Band 1 


g 


Bd. 1: DM 28,-: Bd. 2: DM 28,- 





Begleitdisketie 
zu „Apple Assembler“ 





| DM 28.— 
Begleitdisketie 
zu „Apple DOS 3.3“ 
DM 28,- (Neue Diskette für 
3. Aufl.) 


Hüthig Software Service 
Postfach 102869 - 6900 Heidelberg 





Hi nn nur 


1 u u m m Tr m Te 
für Aufsteiger | 


Mit ausführlichen 


Ulrich Stiehl  Programmbeispielen 


NS ® 
ni. Ba 


L 


Huthig 


Apple ProDOS für 


; Aufsteiger 


Band 1,2. Aufl., 203 S., DM 28,- 
Band 2, 208 S., DM 30,— 


von Ulrich Stiehl 


Dr. Aifred Hüthig Verlag 
Postf. 102869 - 6900 Heidelberg 





Apple Assembler 
Tips und Tricks 


von Ulrich Stiehl 

2. Aufl., 226 S., 3 Abb., kart., 
DM 34,— 

ISBN 3-7785-1047-9 


Dr. Alfred Hüthig Verlag 
Postf. 102869 - 6900 Heidelberg 
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tm 4422 


ELBBONIEN FAR LANESE 7 SIERBERENANEN 


SYSTEMAUFBAU- DATENBANK 
SCHREIBTISCHMANAGER-RECHENBLATT 


Band 1: 


1 
2 
3 
4. 
5 
6 


Einleitung 
Was Sie benötigen 

Starten von APPLE WORKS 

Der Schreibtischmanager 

Datenbank 

. Rechenblatt 
Al Anschluß der Festplatte ProFile 

A2 APPLE II Easy Pieces Referenz 

A3 Druckeranpassungen 

A4 DOS 3.3 Konvertierungen 

AS APPLE WORKS Disketten sichern/ 


kopieren 


A6 Hilfsfunktionen nach Programmteilen 


1 


Noch im Programm: 

Computer für Kinder, APPLE II, DM 29,80 

6502 Programmieren in Assembler, DM 59,- 
Umweltdynamik (Prospekt anfordern), DM 66,- (NEU) 


s 


mul 


ORMATIONEN 
kei 


Band 2: 
. Einleitung 
Was Sie benötigen 
Starten von APPLE WORKS 
Der Schreibtischmanager 
Textbearbeitung 
.  Datenfernübertragung 
... A6 wie Band 1, dazu: 
Modemkabel für APPLE Ile, IIc 
SuperSerialCard: Einstellung 
ASCII-Textdateien aus anderen 
Dateiformaten für ACCESS Il 
A10O DATEX-P2O F Verzeichnis 
All Deutsche/Englische Menübilder 
von ACCESS I 


Von Botta/Lange/Zimmermann je 264 Seiten, 
Softcover, je DM 49,- 


f fi 24) Ki rt 


a — fl 


7 |] 
_. 1 


Ai 
=lSpannungsangaben; schnelle Servicetests; 


TEXTBEARBEITUNG ACCESS II-DATENFERN- 


V.BOTTA /CHR.LANGE /K. ZIMMERMANN 


APPLE WORKS auf APPLE II, Ile, IlIc: 

verwandelt APPLE-Il-Computer in einen Elektroni- 

schen Schreibtischmanager mit: 
Texterstellung ...Edition, Briefarchiv, Ausdruck etc. 
Datenarchivierung ... Kontoführung, Buchhaltung 
etc. Formblattkalkulation ...Bilanzen, VisiCalc- 
Dateien etc. Datenfernübertragung ...Mailbox, 
Rechnerkopplung etc. 

® ist ein erfolgreicheres Integrationspaket als LOTUS 
auf IBM PC! 

® ist auf 1 MByte Speichererweiterungen Ihres 
APPLE Il vorbereitet! 

® erschließt Ihnen die Zukunftstechnik MAILBOX! 

® ist ebenso einfach zu bedienen wie APPLE 
WRITER: 
Kein Befehlsstudium ...Einfachste Menü- 
führung ... Sofortige Anwendbarkeit 


te-wi's APPLE WORKS SYSTEMBUCHER 1+2 

zeigen Ihnen: 

e Sämtliche APPLE WORKS Funktionen an Beispie- 
len aus der Wirtschaft 

© Das Wechseln zwischen Text/Rechenblatt/Daten- 
archiv/Dfü 

© Umfassende Systeminformationen zu Dateikonver- 
tierung, Druckeranpassung etc. 


te-wi Verlag GmbH 
Theo-Prosel-Weg 1 
8000 München 40 


mul 


Weitere te-wi-Bücher 


Das 

APPLE I/ll+/IIe/IIc-Handbuch 
(L. Poole) 

Erst mit Hilfe dieses Leitfadens werden Sie 
Ihren Apple Il erfolgreich einsetzen, denn 
Text und Bildmaterial gehen weit über das 
hinaus, was herstellerseitig an Literatur 
angeboten wird. 

Neu überarbeitet und jetzt um die spezifi- 
schen Eigenheiten der ModelleTe undIIc | 
erweitert. 472 Seiten, Softcover, DM 66,- 


APPLE Il - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia- 
gramme - animiert oder als Standbilder — 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch, 


200 Seiten. Softcover. DM 49.- 


Ne, 
Reparaturanleitung Computer: 
Apple I, IIplus 

Einzigartige Serviceunterlage für Reparatu- 
ren und Entwicklungsarbeiten am Apple Il 
Enthält Schaltpläne, Bauteile- und Ver- 
gleichstypenliste: Prüfpunkte mit Oszillo- 
grammen der Signalformen. Logiktabellen. 


— | Anleitung zur systematischen Fehlersuche. 


Jin A4-Mappe. DM 29.80 


ee, SM .0-] Zugang zur Muttersprache des APPLE. Wesent- 


LOGO - 
Jeder kann programmieren 

4 (Daniel Watt) 
Buch des Jahres in den USA. Für die 
Computer APPLE II, C-64, IBM PC, 
ATARI bis 520 ST, T-99 und Schneider 


Hochwertiges Textbuch für Logo-Kurse 
zu Hause und im Lehrbereich. 
384 Seiten, A4, DM 59, - 


Apple Maschinensprache 
Für BASIC-Programmierer der einfachste 


lich schnellere Maschinenprogramme, direkte 
Manipulation des Mikroprozessors 6502 im 
PS 1 APPLE - als Brücke dorthin benötigt dieses 
Zeus Buch nur die drei BASIC-Befehle POKE, 
ÄMB CALL. PEEK: D. Inman/K. Inman. DM 49.- 


Erstes deutsches Referenzwerk sämt- 
licher Befehle und Systemroutinen von 
Apple Il, IIplus, Ile 

APPLE I PASCAL Ver, 
Betriebssystem, 272 S., DM 49.- 
Sprache. 216 S., DM 39.- 

Pascal 1.2 Addendum, 112 S., DM 36, 


Grundlagenbuch, Bestseller 
APPLE II PASCAL. 

Eine praktische Anleitung, 
544 5, DM 59,- 


Macintosh Programmierhandbuch mit MSBÄSIC 2.0 
(Ende ’85), DM 59,- 

Einführung in die Mikrocomputer-Technik, DM 66, - 
M68000-Familie, 2 Bände, DM 79,- und DM 69,- 








Warum wollen Sie ein teures Textverarbeitungsprogramm kaufen, 


wenn es ein billiges und besseres gibt? 


Fast-Writer 


von Harald Grumser 

Programmadiskette und Handbuch 
Gerätevoraussetzung: Apple Ile oder Ilc (nicht II-+) 
DOS-3.3-Version. Auslieferung ab 1.6.86 
Normalpreis DM 123, — 

Sonderpreis für Peeker-Abonnenten DM 98,- 


ProDOS-Version. Auslieferung ab 1.9.86 
Normalpreis DM 128,- 

Sonderpreis für Peeker-Abonnenten DM 98,- 
Kombinationspreis für Bezieher der 
DOS-3.3-Version DM 28,— 


Der Fast-Writer von Harald Grumser ist in zahlreichen Funktionen wie Scrollen, Suchen und Ersetzen mit 
Abstand das schnellste und damit angenehmste Textverarbeitungsprogramm für den Apple Ile oder lic. 


Flexibilität 
Viele Textverarbeitungsprogramme sind geschützt und 


laufen deshalb nur in Verbindung mit normalen Disk-Il- 
Laufwerken. Nicht so der Fast-Writer! 


— Der Fast-Writer modifiziert weder DOS 3.3 (oder 
Diversi-DOS) noch ProDOS und kann deshalb mit 
BRUN FAST.WRITER gestartet werden. Unter Diversi- 
DOS ist der Fast-Writer dann in 3 Sekunden im Spei- 
cher. Vergleichen Sie einmal, wie lange es dauert, bis 
andere Textprogramme im Speicher sind! 


— Da der DOS-3.3-Fast-Writer in den oberen 16K (= 
Language Card) liegt, kann man ihn vorübergehend 
verlassen und mit einem einfachen Befehl wieder star- 
ten. Mit anderen Worten: Der Fast-Writer ist permanent 
verfügbar, auch wenn Sie zwischendurch beispielswei- 
se mit FID Dateien kopiert haben. 


— Der Fast-Writer läuft mit allen’ externen Datenspei- 
chern, die für DOS 3.3 oder ProDOS gedacht sind, z.B. 
mit dem Erphi-160-Spur-Subsystem, mit der Mega- 
board-MDB-Festplatte, mit RAM-Karten usw. Spezielle 
Anpassungen sind nicht erforderlich. Suchen Sie ein- 
mal ein Textprogramm, das mit diesen Datenspeichern 
auf Anhieb funktioniert! 


— Der Fast-Writer kann mühelos über ein Menü für Ihre 
speziellen Aufgaben konfiguriert werden. Sie können 
z.B. per Knopfdruck die Zeilenbreite (normal 80 Zei- 
chen) am Bildschirm einstellen, wobei ab einer Breite 
von weniger als 41 Zeichen automatisch auf die größere 
Bildschirmschrift umgestellt wird. Ferner können Sie 
die Größe des Arbeitsspeichers (insgesamt ca. 35 500 
Zeichen) beliebig in Textspeicher und Hilfspuffer (für 
Löschen und Blockverschieben) aufteilen. Wenn Sie 
z.B. große Textblöcke im Speicher zu verschieben ha- 
ben, so: können Sie einen entsprechend großen Hilfs- 
Puffer von z.B. 10000 Zeichen einrichten. Damit entfällt 
das zeitraubende Zwischenspeichern und Einlesen von 
Diskette. 


Befehlsvorrat 


Der Fast-Writer verfügt über eine große Zahl von Be- 
fehlen, von denen Sie in der Praxis jedoch nur wenige 
benötigen. Fünf Befehlsübersichten sind durch einge- 
baute Hilifsübersichten immer abrufbar, so daß Sie 
schon nach einer mehrstündigen Einarbeitung auf das 
Handbuch verzichten können. Eine Auswahl der wich- 
tigsten Befehle: 


— Freie Cursorbewegung In allen vier Richtungen mit 
eingebauter Schnell-Scroll-Routine. 


— Diverse, per Knopfdruck ein- und ausschaltbare Op- 
tionen, z.B. Wortumbruch/kein Wortumbruch, Return 
sichtbar/unsichtbar, Kopfzeile (Statuszeile) mit Spei- 
cherbelegung, Cursorposition usw. eingeblendet/aus- 
geblendet, Bildschirm geteilt/ungeteilt, Tabulatorleiste 
sichtbar/unsichtbar, überschreibmodus (statt normalen 
Einfügmodus) ein/aus usw. 


— Eingabe von Kontrollbuchstaben (einschließlich Ctrl-V!) 
möglich. Automatische Konvertierung in Groß- oder Klein- 
schreibung (unter Berücksichtigung der Umlaute und B!) 


— Extrem schnelles Suchen und Ersetzen von Zeichen- 
Ketten (vorwärts und rückwärts). 


— Makros frei definierbar und per Knopfdruck abrufbar. 
Makros können nicht nur stereotype Wortfolgen sein 
(z.B. „Sehr geehrte Herren“), sondern auch alle Be- 
fehlsfolgen, die man beim Fast-Writer sonst über die 
Tastatur eingeben würde. So läßt sich beispielsweise 
ein Text automatisch von Laufwerk 1 laden und auf 
Laufwerk 2 speichern. 


— DOS-Kommandos wie Catalog, Delete, Rename usw. 
immer verfügbar (bei DOS 3.3 zusätzlich Init, bei Pro- 
DOS zusätzlich Online und Datum) 


— Ausdruck auf Matrixdrucker (normal endlos), Schreib- 
maschine (normal mit Einzelblatt) und zu Kontrollzwek- 
ken auf Bildschirm; links- und rechtsbündig, zentriert 
und Blocksatz; einstellbarer linker, rechter und oberer 
Rand (im Text änderbar), bei Bedarf mit Kopfzeile und 
Paginierung usw. Der Ausdruck kann über eigene 
Druckertreiber umgelenkt werden, um z.B. Probleme 
mit Typenrädern, Steuerzeichen usw. zu beheben. 


— Makros, Druckparameter, Druckertreiber und Tabula- 
toren können auf Diskette gespeichert werden. 
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